FastReport分页和空行填充

0.在FastReport 4.X版本通过。
1.添加两个Band 一个是主数据和CHild（与主数据一样的空白带格子）。
2.生成Page事件。
3.添加代码。

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

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