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 . 

转载于:https://www.cnblogs.com/sonicit/archive/2008/06/11/1217446.html