有关打印页码问题(100分)

J

jonson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #1

请问各位高手,我在写一个系统,打印月报表,报表数据约有十几页长,请问如何在每页显示页码和总页数。

 

N

nathanlee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #2

在报表上加一个FOOTBAND，然后放一个TQRSYSDATA控件，然后在它的DATA属性中指定
qrsPageNumber
在它的TEXT属性中可以加上些修饰文字

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #3

自己的控件就能实现呀,就是楼上说的.

 

J

jonson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #4

在DATA属性里没有总页数的选项,请问如何显示总页数。

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #5

paepare一次报表，然后取得pagecount

 

H

hhmsky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #6

添加一个QRBand，设置BandType位rbPageFooter，并加入一个QRLabel1，
在该band的beforePrint事件中写入
qrlablel.Caption := '第 ' + IntToStr(QuickReprot1.PageNumber) + ' 页 共 ' +
IntToStr(QuickReprot1.Printer.PageCount) + ' 页';
就可以了

 

J

jonson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #7

我用以上方法都只是打出了页码,连总页码也变成了页。

 

J

jonson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-27

• #8

还有没有高手指点一下啊

 

T

Tome200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-27

• #9

添加一个QRBand，设置BandType位rbPageFooter，并加入QRLabel，
在beforePrint事件中写入

var
s:integer;
begin
//总页码
QRLabel100.Caption :='共 ';
QuickReport1.Prepare;
S:=QuickReport1.QRPrinter.PageCount;
QuickReport1.CleanupInstance;
QRLabel200.Caption :=IntToStr(S);
QRLabel300.Caption :=' 页';
//当前页
QRLabel400.Caption:='页';
QRLabel500.Caption:='第 ';
QRSysData100.Data:=qrsPageNumber;
end;

 

J

jonson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-23

• #10

多人接受答案了。