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 :=  mod PageMaxRow; //对于固定行数这一句代码是必要的
  if (PageLine = 1) and ( > 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.

  

 

 

 

你可能感兴趣的:(FastReport 自动换行与行高自适应及自动增加空行)