在delphi的报表中如何求出报表的总页数？
例如： 第3页/共23页
各位老大帮帮忙吧 ！谢谢！
问题点数：20、回复次数：11Top
1 楼lastlove（活着真没劲）回复于 2002-03-11 15:04:31 得分 4
Quickrep1.Prepare ;
PageCount:=Quickrep1.QRPrinter.PageCount;
Top
2 楼line（一千弯线）回复于 2002-03-11 15:05:55 得分 4
程序中先把共有多少数据统计出来，ADOQUERY1.SQL.COUNT
再在报表中自已统计一页可放几个数据，也可程序设定。TOP 10
这样就可以通过计算得出共多少页了。同样，第几页（当前页）就太简单了，
不再详述～Top
3 楼lastlove（活着真没劲）回复于 2002-03-11 15:05:56 得分 1
好像没有直接属性得到，只好先prepare一下，再print;Top
4 楼lastlove（活着真没劲）回复于 2002-03-11 15:08:25 得分 1
line的是个好办法，我以前一直都先prepare后得到pagecount,但是很慢，相当于执行了两次preview的时间~~Top
5 楼lanjian（无疯无禄）回复于 2002-03-11 15:10:18 得分 3
如果你用的是QReport做报表的话
第几页
TQRSysData.Data:=qrsPageNumber;
共几页
我现在忘记，想起来再给你吧
Top
6 楼jerbee（波波）回复于 2002-03-11 15:22:50 得分 0
感谢各位大哥的帮忙，小弟马上动手。Top
7 楼line（一千弯线）回复于 2002-03-11 15:50:39 得分 2
lastlove()lastlove()兄：说得不错，你这样做是可以的，但肯定是比较慢的。报表只提供了第几页这个属性。共多少页我认为还得自己算出来Top
8 楼sanjianxia（三剑侠）回复于 2002-03-11 16:04:41 得分 1
PageCount:=Quickrep1.QRPrinter.PageCount;Top
9 楼wolfAone（30，奋斗成男人）回复于 2002-03-11 16:57:05 得分 0
好像都不行椰．Top
10 楼wolfAone（30，奋斗成男人）回复于 2002-03-11 17:02:33 得分 0
line(一千弯线应狂风)：你的算法我也考虑过，但是不具备通用性，万一排版更改过了呢？Top
11 楼leemingsong（陨石）回复于 2002-03-11 17:23:23 得分 0
GZTop
12 楼belllab（菜鸟）回复于 2002-03-11 18:19:28 得分 4
要先Rep1.prepare;
Rep1.QRLPageCount:=REp1.QrPrinter.PageCount;
Rep1.Preview;
但是你注意用资源查看器查看资源情况，有可能不能正常释放资源Top
