在delphi的报表中如何求出报表的总页数？

Question

Quickrep1.Prepare ;
PageCount:=Quickrep1.QRPrinter.PageCount;

Answer 1

程序中先把共有多少数据统计出来，ADOQUERY1.SQL.COUNT
再在报表中自已统计一页可放几个数据，也可程序设定。TOP 10
这样就可以通过计算得出共多少页了。同样，第几页（当前页）就太简单了，
不再详述～

Answer 2

好像没有直接属性得到，只好先prepare一下，再print;

Answer 3

line的是个好办法，我以前一直都先prepare后得到pagecount,但是很慢，相当于执行了两次preview的时间~~

Answer 4

如果你用的是QReport做报表的话
第几页
TQRSysData.Data:=qrsPageNumber;
共几页
我现在忘记，想起来再给你吧

Answer 5

lastlove()lastlove()兄：说得不错，你这样做是可以的，但肯定是比较慢的。报表只提供了第几页这个属性。共多少页我认为还得自己算出来

Answer 6

PageCount:=Quickrep1.QRPrinter.PageCount;

Answer 7

line(一千弯线应狂风)：你的算法我也考虑过，但是不具备通用性，万一排版更改过了呢？

Answer 8

要先Rep1.prepare;
Rep1.QRLPageCount:=REp1.QrPrinter.PageCount;
Rep1.Preview;
但是你注意用资源查看器查看资源情况，有可能不能正常释放资源