var
PageLine: integer;
//在現在頁列印到第幾行
PageMaxRow: integer = 32;
//設定每頁列數
procedure MasterData1OnBeforePrint(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);
while i < PageMaxRowdo
begin
i := i + 1;
Engine.ShowBand(Child1);
//印空白表格，Child1子带区
end;
end;
