在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 ((aa-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.
FastReport打印固定行
最新推荐文章于 2021-12-16 13:39:46 发布