刚才的SQL我自己解决了！这个打印怎么解决啊！

Question

begin
if dbgrid1.FieldCount>0  then begin
quickreport3.DataSet:=Query1;
quickReport3.DataSet.First;  /////////////看看有没有用，
quickreport3.Preview;
end else begin
MessageDlg('你还没有执行单证核对！', mtInformation,
      [mbOk], 0);
end;
应该不会出现这种情况的.

Answer 1

是不是在打印前先要启动 PRINTDILOG的一个什么东西啊！

Answer 2

delphi的报表在设计后纸张的大小一定要与Windows中的打印设置统一， 不然就不会打印，打印机只会走纸一行！
可以用其它的报表控件来处理！