QuickRep 如何取得当前页和总页数?(100)

我用QuickRep打印,想在每一页显示出当前页和总页数,不知怎么获取这两个值,请高手指教,谢谢!

delphi自带有例子，自己研究吧

第几页很简单呀,需要的地方放一下TQRSysData打印控件好了,把Date属性设置成qrsPageNumber类型.共几页用你放一下TQRLabel,然后在打印代码: prn_win := TXXXXForm.create(nil);
prn_win.TQuickRep.DataSet := PrnTable;//数据表 prn_win.TQuickRep.prepare;
prn_win.TQRLabel.caption := inttostr(prn_win.TQuickRep.pagenumber);//共几页 prn_win.QRchkd1.preview;这样就OK了

多人接受答案了。