begin if LINE#-1<>0 and LINE#-1 mod 5=0
then begin showBandChild1 showBandband1 end end 代码中用FastReport的内置函数LINE#取得当前行号,如果满足条件,就显示页头和Child3,开始新的一张表单。
3.选中Child3,在它的OnBeforPrint事件中输入如下代码:
begin lin=lineCount //在程序中要对该变量赋值 while lin mod 5<>0
do begin showbandchild2
//打印空行 inclin end showBandchild3 end 这段代码的用途是如果最后数据行不够一张表单显示时,就打印空行。
4.
选中Band3,在它的OnBeforPrint事件中输入如下代码:
begin showbandchild1
//到达报表结束时显示表单底部的内容 end 5.将报表保存后回到Delphi开发环境。