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

设定后便可自动换行及行高自适应。版本号5.6.2code

一、masterData：属性值：stretched 为True blog

二、Memo设定wordwrap为True ,stretchMode:smMaxHeightast

FastReport自动增长空行class

一、在masterdata下增长child；自适应

二、在code编写以下代码word

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.