FastReport 自动换行与行高自适应及自动增加空行

var
PageLine: integer;//在現在頁列印到第幾行
PageMaxRow: integer =28;//設定每頁列數

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  PageLine := <line> mod PageMaxRow; //对于固定行数这一句代码是必要的
  if (PageLine = 1) and (<line> > 1) then
    Engine.newpage;
  Memo45.text:=inttostr(PageLine);
  child1.visible := False;
end;

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;
    Memo61.text:=inttostr(i);
    Engine.ShowBand(Child1);//印空白表格
  end;
   child1.visible := False;
end;

begin

end.