如何在QuickRep中的每一页打印上“第几页共多少页”？例如“第2页共24页”。(50分)

G

greenwon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-19

• #1

感谢回家问题的富翁。

 

曾

曾阿牛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-19

• #2

gz

 

崔

崔占东

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-19

• #3

当前页数为：QuickRep1.PageNumber
总页数为：记不太清了，我回去再给你查查

 

Z

zxb200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-19

• #4

在報表所在的窗口的Oncreate事件中寫上：
假設此窗口為Form1;
var count:integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
quickrep1.Prepare;
count:=quickrep1.QRPrinter.PageCount;//此為報表的總頁數
quickrep1.QRPrinter.free;
quickrep1.QRPrinter:=nil;
end;
至于當前的頁次，可放一個QrsysData1控件，設置其Data屬性為Pagenumber即可。

 

Z

zhangc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-19

• #5

在qrsysdata中，有这个属性

 

G

greenwon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-19

• #6

用zxb200的方法解决了问题，多谢！