急啊~~！！！！我语句这样写的，为什么不能实现连续打印报表呢？

Question

procedure Tprint2.QR2AfterPrint(Sender: TObject);
begin
While not bj.Table1.Eof do
begin
bj.Table1.next;
QR2.NewPage;
end;
end;

Answer 1

我觉得你应该在QR2.NewPage之前和之后调用QR2.BeginDoc和QR2.EndDoc；
另外，你一页只打一条记录吗？这样好象不合适吧。

Answer 2

2楼说的对，在QR2.BeginDoc和QR2.EndDoc之间用循环控制一页上的打印条数，然后QR2.NewPage

Answer 3

做复合报表即可解决，QRCompositeReport控件OnAddReports事件中动态加入报表即可QRCompositeReport AQRCompRep;
for ( i... )
{
  AQRCompRep.Add(Rep(i));
}