不用控制数据源
只须在你的DetailBand的AfterPrint写如下:
procedure TPrintForm.DetailBandAfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
if (Rep1.RecordNumber mod 40)=0 then //40是每页显示的条数,你自己定
Rep1.NewPage;
end;
只须在你的DetailBand的AfterPrint写如下:
procedure TPrintForm.DetailBandAfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
if (Rep1.RecordNumber mod 40)=0 then //40是每页显示的条数,你自己定
Rep1.NewPage;
end;
Rep1.NewPage;
1。Illegal call to newpage//错误
2。在QuickRep1StartPage中,会用完内存而报错//我想预览