FastReport打印空行

1. var  
2.   PageLine: integer;//现在打印到第几行  
3.   PageMaxRow: integer=15;  //空行行数
4. procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
5. begin  
6.   PageLine := <Line> mod PageMaxRow;  
7.   if (PageLine = 1) and (<line> > 1) then    
8.     Engine.newpage;
9.   child1.visible := False;
10. end;
11. //Footer1高度必须为0
12. procedure Footer1OnBeforePrint(Sender: TfrxComponent);
14. var  
15.   i: integer;
16. begin  
17.   i := iif(PageLine=0, PageMaxRow, PageLine);  
18.   child1.visible := True;
19.   while i < PageMaxRow do 
20.   begin    
21.     i := i + 1; 
22.    Engine.ShowBand(Child1);  //打印印空白表格
23.   end;
24.   child1.visible := False;
25. end;
26. begin
27. end.