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

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

一、masterData：屬性值：stretched 爲True 

二、Memo設定wordwrap爲True ,stretchMode:smMaxHeight

 

FastReport自動增長空行

一、在masterdata下增長child；

二、在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.