每页小计怎么

Question

用QReport,rbDetail做报表时,怎么能做出每页的小计?
每页打印的记录数随纸张的大小改变,怎么能统计出每的小计是多少?
或者说怎么能固定每页打印的记录数?
谢谢!在线.

Answer 1

你在打印内容所在BAND的BEFOREPRINT事件中判断：
IF 记录数=50 THEN
BEGIN
打印小计 
QUICKREP1。NEWPAGE
END

Answer 2

IF table1(QUERY1).RecNo MOD 50=0 THEN 
begin
打印小计 
QUICKREP1。NEWPAGE
end

Answer 3

这种方式我试了一下, 我用的rbColumnHeader除了第一页以外,都打印不出来了.

Answer 4

rbPageFooter中放 TQRExprTQRExpr.Expression:="Sum(数量)"
TQRExpr.ResetAfterPrint:=true;  //当打印后，数据就会清零，即从下数据重新统计