摘要:
var GPage,GIndex,FGIndex:integer; PageList:array of integer; PageLine: integer; PageMaxRow: integer=28; procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);begin GPage := GPage + 1;end;procedure Page1OnBeforePrint(Sender: TfrxComponent);begin GPage :=1; end;procedure GroupFooter1OnBeforePrint( 阅读全文