如何使用quickrepot总页数？ (50分）(100分)

T

tanzhouren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-03

• #1

问题：如何使用quickrepot总页数？
我在使用quickrepot设计报表时，需要用到总页数的功能，在查看源代码的时候，
发现源码中有该变量，但是没有提供外部使用，也就是说在设计报表的时候只能
使用当前页码，不能使用总页数，不知道各位大侠有何办法？要具体的原码。
tanzhouren@263.net

 

E

eastweast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-09

• #2

一个笨方法：可以计算出来，根据每列的高度算出每页的显示数据数，用除法就好了。

 

K

killerbug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-30

• #3

我的方法：
1。定义一个全局变量，在你的用的预览控件中写onPageAvailable事件处理，如
procedure Tprintform.QRPrevPageAvailable(Sender: TObject;
PageNum: Integer);
begin
fpagenum:=pagenum;//fpagenum全局变量
updateshow;
end;
2。报表产生后，取fpagenum即为总页数
应该能解决你的问题

 

S

samboy111

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-01

• #4

笨办法：二次报表，第一次算页数。

 

A

aspire

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-05

• #5

在QuickRep1.preview或QuickRep1.print之前加上如下代码即可
QuickRep1.Prepare;
TotalPage:=QuickRep1.QRPrinter.PageCount;

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-05

• #6

来晚了!aspire的方法可行!

 

T

tanzhouren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-31

• #7

接受答案了.