QuickRep1.Prepare;
ShowMessage(IntToStr(QuickRep1.QRPrinter.PageCount));
共120分? :)
ShowMessage(IntToStr(QuickRep1.QRPrinter.PageCount));
共120分? :)
解决方案 »
- 关于日全食的若干意见
- Delphi怎么往VF表中插入数据时间型,浮点型字段.
- 关于findwindow函数问题
- delphi5.0 安装中的问题!在线等待...
- 最好的分发工具
- 中秋到了,各位的公司搞些什么活动啊?有没有发钱的啊?
- 寻求(client)socket对远程主机多线程查询的例子
- 请问各位高手,谁知道怎么制作安装文件,就是一个exe,然后这个exe包含多个文件在里面,也就是说,用stream把他们放在setup.exe的后面,然后读出来的时候找好文件流的位置.最好有源码!不胜感激!给分!!!
- 菜鸟求救:如何分页打印数据
- sql severe 2000的一个小问题?
- 菜鸟的烦恼
- 关于类编程的求助!
1、在页脚中加一个 TQRLabel:QRLabel1;
2、然后
QuickRep1.Prepare;
QRLabel1.Caption := IntToStr(QuickRep1.QRPrinter.PageCount);
QuickRep1.PreviewModal;( or QuickRep1.Print or QuickRep1.preview)