转摘:1、FastReport如何打印表格式的空行? var PageLine: integer;
//在現在頁列印到第幾行 PageMaxRow: integer=15;
//設定每頁列數procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
PageLine := <Line> mod PageMaxRow;
if (PageLine = 1) and (<line> > 1) then
Engine.newpage;
child1.visible := False;
end;
//Footer1高度設為0procedure Footer1OnBeforePrint(Sender: TfrxComponent);var i: integer;
begin
i := iif(PageLine=0, PageMaxRow, PageLine);
child1.visible := True;
while i < PageMaxRowdo
begin
i := i + 1;
Engine.ShowBand(Child1);
//印空白表格 end;
child1.visible := False;
end;
begin
end.