当前位置 :首页 ->编程语言 ->Delphi ->正文

在打印或打印预览前如何获取报表页数

来源：Linuxdby.com 作者：Webmaster 时间：2007-06-05 点击： [收藏] [投稿]

我们有时需要在打印前获取报表的打印页数, 比如我们需要在页眉或页脚中打印“共 xx 页第 xx 页”，那如何实现呢？ QuickRep生成Report之前，我们是无法得知报表页数的，而QuickReport是在打印或打印预览时才生成报表,换言之我们只有在打印或打印预览前先将报表生成一次才能获取打印页数.生成报表的方法是 Prepare。参考以下的例子:
...
var nPageCount:integer；
begin
　　{...}
　　 QuickRep1.Prepare；
　　 nPageCount:=QuickRep1.QRPrinter.PageCount；
　　 QuickRep1.QRPrinter.Free；
　　 QuickRep1.QRPrinter:=nil；
　　 {在此修改QuickRep1，实现在页眉或页脚中打印“共 xx 页第 xx 页” ... }
　　 QuickRep1.PreView；
　　 {...}
End；

如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一篇：用Delphi实现风Word97风格的工具栏下一篇：谈Delphi编程中“流”的利用(一)

【文章评论】【收藏本文】【推荐好友】【打印本文】【我要投稿】【论坛讨论】

更多相关文章

·如何用Delphi制作录音程序

·谈Delphi编程中“流”的应用

·如何把数据库的内容写入到Word文档中？

·从实作标题栏按钮开始浅谈组件的制作

·“98五笔字型输入法”大批量造词

·关于Delphi大Bug的更详细的例子

·不知您是笨蛋，还是我是笨蛋，关于Delphi的大Bug

·剖析TThread类

·理解类引用这种类型

·改良控件－Delphi自带控件Bug的消除

推荐文章

·谈Delphi编程中“流”的利用(一)

·Delphi中MIDAS是什么(MIDAS之一)

·使TStringGrid自适应宽度

·DELPHI中数据文件路径的管理

·研究心得------->Seskin控件

·在delphi字符中包括单引号(')

·捆绑执行文件新思维(第二版)

·delphi里播放flash

精彩文章

·Delphi源程序格式书写规范

·控件移动类的实现之二

·TWebBrowser的常见属性和方法

·在delphi.net的VCL.net里使用Ado.ne

·多层数据库开发十二:使用数据控件

·将面向对象的思想贯穿始终--谈Delph

·200开发技术年度综述之Windows开发

·再谈多态--多态的应用举例：

·borland工程师如何保证父类(TStream

·捆绑执行文件新思维(第二版)

·改变Windows的缺省打印机

·用面向对象方法解决24点问题

·一个计算器的代码，欢迎大家点评

·Delphi与DirectShow&DSPack

·浅谈引用计数

·项目迭代开发手记--文件分割存储用

·於Delphi的Case述句中使用字串當作

·转载：TThread类剖析

·用pascal写的最简单的winsock程序

·利用书签功能对TDBGrid控件中多个记

·在Delphi中使用IP控件

·改造HINT的输出方式

·DBGrid使用全书(四)

·将Dcom对象转换成Com+对象的一种办

·使用IntraWeb进行Web编程(二)

·文件与目录

Power by linux-cn.com 粤ICP备05006655号