FastReport打印固定行

在FastReport 4.X版本通过。
1.添加两个Band 一个是主数据和CHild（与主数据一样的空白带格子）。
2.生成Page事件(OnManualBuild)。
3.代码如下（红色为输入的代码）。

var
  i:Integer; 
  maxRow:Integer; 
procedure Page1OnManualBuild(Sender: TfrxComponent);
var 
   DataSet: TfrxDataSet; 
begin
  i:=1; 
  DataSet := MasterData1.DataSet; 
  DataSet.First; 
  while (not DataSet.Eof) or ((i-1) mod MaxRow<>0) do 
  begin 
      if DataSet.Eof then Engine.ShowBand(Child1) 
      else Engine.ShowBand(MasterData1); 
      DataSet.Next; 
      i:=i+1; 
      if (((i-1) mod (MaxRow)=0) and (not DataSet.Eof)) then EngIne.Newpage; 
  end; 
end;

begin
    maxRow:=15; //每页最大行数 
end.