报表问题

Question

我的报表
加入 Band1, BandType 为rbColumnHeader ；
加入 Band2, BandType 为rbDetail ；
加入 Band3, BandType 为rbPageFooter 
在Band3其Expression 属性中设置计算公式和计算字段,并ResetAfterPrint设置为True,这样第二页会重新计算(每页要统计的，不能用BandType 为rbSummary 不会每页统计）。
Band3会显示在每页的页脚上，我想Band3紧帖在Band2下，如：
  1  2.2  2.6
  2  2.3  26
合计 4.5  28.6 （会显示在每页的页脚上，要上移紧帖2行）

Answer 1

用FR容易解决。用QR比较麻烦：
1、在QR中放入DETAILBAND、PAGEFOOTER等BAND，在DETAILBAND中内容结束后
（即要打印内容后面）放入QRLABEL，用来显示第**页共**页；PAGEFOOTER
中为空；
2、在QRBEFOREPRINT事件中将QRLABEL的ENABLE设为FALSE；调整DETAILBAND
的高度，使打印内容之间没有空格；
3、在PAGEFOOTER的BEFOREPRINT事件中设定QRLABEL的ENABLE设为TRUE，这样
第**页共**页就紧跟打印内容了，当然你也可以在QLABEL中显示页合计、累计
等内容，不知我讲的是否清楚，你可试一下。
也可用：
quickrep1.ResetPageFooterSize;
设置PAGEFOOTER　BAND的HEIGHT：
qrband2.Height:=1000-strtoint(edit1.text)*37;
end;