FastReport打印固定行

关注

原创最新推荐文章于 2023-07-14 10:11:45 发布 1.8k 阅读 AI 写同款· GEO 优化 ›

FastReport报表固定行不足补空行且每页小计最后一页合计 1、报表设计器内添加一个页首PageHeader，用于添加报表的表头； 2、在页首区域添加几个带边框的Memo，把每个Memo靠在一起形成报表表头； 3、添加一个栏首； 4、添加一个主数据MasterData（我的是MasterData3），并绑定好数据集； 5、复制页首区域的Memo报表表头对齐粘贴到主数据MasterData，并绑定好对应字段； 6、添加一个子Child，用于补空行。复制页首区域的Memo报表表头对齐粘贴到该子区域，并清空所有Memo的text数据，形成一个空白行； 7、添加阅读详情

在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.