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

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

1、masterData：属性值：stretched 为True 

2、Memo设定wordwrap为True ,stretchMode:smMaxHeight

FastReport自动增加空行

1、在masterdata下增加child；

2、在code编写如下代码

1var
2PageLine: integer;//在現在頁列印到第幾行
3PageMaxRow: integer =28;//設定每頁列數
4
5procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
6begin
7  PageLine := <line> mod PageMaxRow; //对于固定行数这一句代码是必要的
8  if (PageLine = 1) and (<line> > 1) then
9    Engine.newpage;
10  Memo45.text:=inttostr(PageLine);
11  child1.visible := False;
12end;
13
14procedure Footer1OnBeforePrint(Sender: TfrxComponent);
15var
16  i: integer;
17begin
18 i := IIF(PageLine = 0, PageMaxRow, PageLine);
19 child1.visible := True;
20 while i < PageMaxRow do
21  begin
22    i := i + 1;
23    Memo61.text:=inttostr(i);
24    Engine.ShowBand(Child1);//印空白表格
25  end;
26   child1.visible := False;
27end;
28
29begin
30
31end.