FastReport打印空行

 

var  
  PageLine: integer;//现在打印到第几行  
  PageMaxRow: integer=15;  //空行行数
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin  
  PageLine := <Line> mod PageMaxRow;  
  if (PageLine = 1) and (<line> > 1) then    
    Engine.newpage;
  child1.visible := False;
end;
//Footer1高度必须为0
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; 
   Engine.ShowBand(Child1);  //打印印空白表格
  end;
  child1.visible := False;
end;
begin
end.