FastReport 自動換行與行高自適應及自動增加空行

設定后即可自動換行及行高自適應。版本號5.6.2

1、masterData：屬性值：stretched 為True 

2、Memo設定wordwrap為True ,stretchMode:smMaxHeight

 

FastReport自動增加空行

1、在masterdata下增加child；

2、在code編寫如下代碼

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.