报表的小问题.

Question

用TQREPORT.下面有两个问请叫了.
1:)页码,总共有4页,我想显示为:页码:1/4,代码不知怎么写.
2:)工资表有四页,我只想在最后一页的下面加上"签名"的标签,不知该用TQRBANB的那一种谢了.

Answer 1

Var
QUICKREP1:tquickrept;
pgcnt:integer;//用來存放報表總頁數。quickrep1.prepare;//該句對報表進行一次准備操作，可得到報表的總頁數。
//再用以下代碼：
pgcnt:=quickrep1.qrprinter.pagecount;
//第几页
quickrep1.qrprinter.pagenumber;

Answer 2

1、i:=PersonPrintA4_frm.QuickRep1.QRPrinter.PageCount;
PersonPrintA4_frm.QRLabel16.Caption := '/'+inttostr(i)+'页';//这个i就是总页数
当前页就直接用那个page就可以了
2、用rbSummary