FastReport分组、填充空格、分页和小计_fastreport 小计

网上找到了分组、填充空格和分页，但是fastreport有一个问题，一旦用child1填充空格后，GroupFooter1的小计就无法显示了，需要加一个累计项单独小计，备忘一下，以供大家参考。

以下是打印记账凭证的代码，一张A4的纸上打印三张，每张凭证可以填写8个分录项：

var
  GPage,GIndex,FGIndex:integer;
  PageList:array of integer;
  PageLine: integer;
  PageMaxRow: integer=8;
  jf,df:real;                            

procedure GroupFooter1OnBeforePrint(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;

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  PageLine := <Line> mod PageMaxRow;
  if (PageLine = 1) and (<line> > 1) then
    Engine.newpage;
  child1.visible := False;
end;

procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
begin
   jf:=jf+<ADOTable1."借方发生额">;       
   Memo30.Text :=FloatToStr(jf);
   df:=df+<ADOTable1."贷方发生额">;       
   Memo32.Text :=FloatToStr(df);      
end;

procedure GroupFooter1OnAfterPrint(Sender: TfrxComponent);
begin
  jf:=0;
  df:=0;                
end;

begin

end.