5,386
社区成员
发帖
与我相关
我的任务
分享
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高度必须为0,这里不一定,可能4.0以下要为0,4.0以上不用
procedure Footer1OnBeforePrint(Sender: TfrxComponent);
var
i: integer;
begin
i := iif(PageLine=0, PageMaxRow, PageLine);
child1.visible := True;
while i < PageMaxRow do
begin
i := i + 1;
Engine.ShowBand(Child1); //打印印空白表格
end;
child1.visible := False;
end;
begin
end.