fastreport 不满10补行至满页

delphi8个月前更新 admin
554 0

看了网上的一些资料,发现了方法,但是描述都不是很详细,也至于每次都无法实现,只能在数据集中做补空行处理。今天终于弄通了,贴出方法,以备后续之用。

1. <1>在报表上加一个Child(在控件设计器中名称叫“子(W)”).其Name取名叫Child1。

<2>此Band就是我们要添加的空行(若你的报表明细中有表格线,明细Band(如  DetailData中也有表格线,请在添加的Child1中也照样添加好表格线)。

Band的高度设置为明细Band的高度。

<3>.经过<2>的设置后,此Band的名称在报表中显示为: Child:Child1

 

2.在报表上加一个Footer 的Band(不是PageFooter)。(若你的报表不需要此Footer,可以将此BAND的高度弄成0).

添加此Band的理由:需要利用此Footer的OnBeforePrint事件计算补空行。

 

3.在Footer的Band的OnBeforePrint事件中写入动态添加空行的代码:

4.需要设置需要补充到多少行

<code>

procedure Footer1OnBeforePrint(Sender: TfrxComponent);
var
i, LineCount: Integer;
begin
LineCount :=<Line#>;
for i := LineCount to 9 do
begin
engine.showband(Child1);
end;
end;

</code>

参考:FastReport如实现打印固定行数,不足补打空白行(转) – lybingyu – 博客园

© 版权声明

相关文章