我在网上看到的方法,你加一个CHILD1,然后添加以下代码若满足条件则显示CHILD1的内容,CHILD1那里放空行表格
var pageline:integer;
var pagemaxrow:integer=4;//每页最大行数
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);//该函数设置每页的打印记录数
begin
PageLine := <line> mod PageMaxRow;
if (PageLine = 1) and (<line> > 1) then
Engine.newpage;
end;
procedure Footer1OnBeforePrint(Sender: TfrxComponent);
var
i: integer;
begin
i := iif(PageLine=0, PageMaxRow, PageLine);
while i < PageMaxRowdo
begin
i := i + 1;
Engine.ShowBand(Child1);
//印空白表格
end;
end;