{FastReport 3.X
///////////////////////////////////////////////////////////
1、if ([line#-1]>1) and ([line#-1] mod 你指定条数=0) then
NEWPAGE
2、加一CHILD BAND,其格式与MASTERDATA一致，先计算出已打印几条记录,然后在MASTER FOOTER的 BEFORE PRINT中,FOR I:=1 TO 每页条数-已打印条数,
SHOWBAND(CHILD1)}
var
PageLine: integer;
//在現在頁列印到第幾行
PageMaxRow: integer=15;
//設定每頁列數
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
PageLine := <line> mod PageMaxRow;
if (PageLine = 1) and (<line> > 1) then
Engine.newpage;
end;
//Footer1高度設為0
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;
