如何得到报表的总页数？

lybt 2000-03-09 09:58:00

...全文

255 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

dragoncircle 2000-03-16

打赏
举报

在打印之前，先调用prepare方法。

bubble 2000-03-16

打赏
举报

使用QRSysData控件将其Data属性设置为QRSPageNUMBER即可。

dengdeng 2000-03-14

打赏
举报

用QRPreview控件显示和打印就可以

zltt 2000-03-11

打赏
举报

我想你是在自己写打印程序，我自己写过一个打印预览的程序，可用于一般数据库查询结果的打印。报表的总页数须程序读取打印机的信息，作计算得出。另外我还写过通用会计报表程序，类似Excel的电子报表，打印功能也是根据打印机信息计算总页数的

zoao 2000-03-11

打赏
举报

Quick Report 的 PageCount 是只读属性,但是可以访问.

Un1 2000-03-10

打赏
举报

你在用什么做报表？

torent 2000-03-10

打赏
举报

使用 QRPreview, 其中有一个 Property: PageCount

xlili 2000-03-10

打赏
举报

Quick Report 中有"experation" 项，将表达式设为 "pagecount"就行。
原理是这样，具体步骤忘了。

lybt 2000-03-10

打赏
举报

Quick Report

lybt 2000-03-09

打赏
举报

tell me!

本想自动读取报表的纸张大小，但返回来值都是默认纸张的大小，所以用了
Selest case 词句，但这样结果是纸张的类型不齐全。没有类型对应的纸张的在大小不能正确判断（此情况下，如果提供的参数不正确，报表结果将会变乱。此时只要调整一下参数。即得到正确的报表。）。如果有谁能解决此问题，请告知一声。

以下为新的函数说明：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
函数名:RepDetail_Format()
调用报表必须使用控件：（文本框）
txtRecord_NO 在主体节可见用于显示记录号，可选
txtTotGrp 在主体节不可见 =Count(*) 用于取得报表的总记录数，必须
txtCurrentPage 在主体节不可见 =[Page] 用于取得当前页数，必须

参数说明： RepName 报表名称（当前报表可用 (Me), 其它报表可用：(Reports.报表名)引用），必须
txtCurrentPage 报表主体节上的[txtCurrentPage]文本框控件 ,必须
txtRecordNum 报表定义的私人变量数据类型:Integer 用于记录数的递增，必须
（注：在报表模块顶部声明： Private txtRecordNum As Integer ）
txtTotGrp 报表主体节上的[txtTotGrp]文本框控件，必须
IntPrintLen 报表打印的行数。
-----数据类型:Integer （注：不可超过每页允许的最大记录数），可选，（默认：25 行）
DouPageLine 报表主体记录部分打印长度。
-----数据类型:Double （注：不可超过每页允许的最大记录数），可选，（默认：21 CM ）
FontSize 报表记录部分字号。
-----数据类型:Integer （注：不可超过每页允许的最大记录数），可选，（默认：0 字号不变）
txtRecord_NO 记录序号文本框名称。
-----数据类型:String （注：不可超过每页允许的最大记录数），可选，（缺省为没有使用）

使用方法：
1,先定义一私人变量：Private txtRecordNum As Integer,必须
2,报表主体节的格式化事件中调用（Detail_Format 事件）

调用方法：NextRecord=RepDetail_Format(RepName , txtCurrentPage.text , txtRecordNum , txtTotGrp.text , IntPrintLen)
使用示例：NextRecord = RepDetail_Format(Me, [txtCurrentPage], txtRecordNum, [txtTotGrp], 20)
本函数由 binuochao (许伟军) 完成。制作于2003-06-27 Email:binuochao@sina.com.cn QQ:10077241

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝　