处理时,分页和空行填充是这样的:
var
PageLine: integer; //在現在頁列印到第幾行
PageMaxRow: integer=15; //設定每頁列數
procedure DetailData1OnBeforePrint(Sender: TfrxComponent);
begin
PageLine := <line> mod PageMaxRow;
if (PageLine = 1) and (<line> > 1) then
Engine.newpage;
end;
procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);
var
i: integer;
begin
i := iif(PageLine=0, PageMaxRow, PageLine);
if i=0 then
exit;
while i < PageMaxRow do begin
i := i + 1;
Engine.ShowBand(DetailData1); //印空白表格DetailData1是明细数据控件
end;
end;
每页15行,不到15行时自动填充空行,但是报表程序一运行,程序就退出了,分页我单独试了,可以正常运行。但是空行填充加进去就会出现这个问题。
fastreport分页和空行填充问题
最新推荐文章于 2023-03-24 06:59:24 发布