50分寻问:如何在QuickRep1中显示打印共有多少页。
解决方案 »
- 求助:delphi代码中创建一个对象,怎么获取这个对象事件中的变量值
- 怎么样使Stringgrid插入的新纪录永远初一第一行
- delphi 在多线程情况下不会报错
- 请问想做数据库开发看什么书好?
- rave报表问题,很急
- 请教一个关于软件发布的问题
- 实现添加,修改,删除等功能
- 在没有mousedown和mouseup事件的控件上如何截获鼠标右击事件?
- 如何把Combobox的某一行作为当前行 答完立即给分
- 用ClientDataSet开发单层文件型数据库应用程序时如何使用SQL语句?
- Delphi撰写ISAPI格式Web程序生成DLL文件,重新调试时为何提示文件正在使用,关闭Web服务仍旧
- 关于写共享软件,欢迎讨论,谈谈个人看法
qrlabel19.Caption:=trim(inttostr(quickrep1.Printer.PageCount));
Report1.Prepare;
Count:=QRPrinter.PageCount;
QRLabell.Caption:=InttoStr(Conut);
Report1.Cleanup;
Report1.Preview;
設定其Data屬性爲'qrsPageNumber'