ReportMachine与FastReport固定行数分页不足补空白行实践
ReportMachine简单容易，FastReport有点复杂
准备工作
ReportMachine实现
ReportMachine实现很简单，设置报表MasterData的LinesPerPage每页记录数，AutoAppendBlank为True即可。
效果
FastReport实现
需在在报表里使用代码来控制才能实现有点麻烦
具体是通过在MasterData超过指定行数时创建新页，Footer页脚来动态增加frxChild
var
PageLine: integer; //在当前页打印到第几行
PageMaxRow: integer=10; //设定每页列数
procedure Footer1OnBeforePrint(Sender: TfrxComponent);
var
i: integer;
begin
i := iif(PageLine=0, PageMaxRow, PageLine);
while i < PageMaxRow do begin
i := i + 1;
Engine.ShowBand(Child1); //印空白表格
end;
end;
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
PageLine := <line> mod PageMaxRow;
if (PageLine = 1) and (<line> > 1) then
Engine.newpage;
end;
begin
end;效果
