QREPORT的"第几页/共几页"，共？页怎么做啊 ( 积分: 50 )

N

NewLearner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-04

• #1

怎么无法实现啊，共几页

 

L

LEEMA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-04

• #2

全局变量
var
FPageCount: integer;
procedure TPreviewForm.QRPreview1PageAvailable(Sender: TObject;
PageNum: Integer);
//取页码总数
begin
FPageCount := PageNum;
end;

然后在需要用的地方: Label1.Caption := '共 ' + IntToStr(FPageCount) + ' 页';

 

N

NewLearner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-04

• #3

不行， 我没有使用过QRPreview

 

L

linghe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-05

• #4

QuickRep1.Prepare();
label.caption="第"+IntToStr(QRPreview1.PageNumber)+"页"+"共"
+ IntToStr(QuickRep1.PageNumber)+"页";
QuickRep1.Preview();

 

G

gxf1681

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-05

• #5

linghe的方法可以做到，不妨可以试试.

 

Q

qis2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-06

• #6

Quickrep1.Prepare;
nPageCount:=Quickrep1.QRPrinter.PageCount;
if npagecount=0 then
npagecount:=1;
Quickrep1.QRPrinter.Free;
Quickrep1.QRPrinter:=nil;
qrlabel1.Caption:='/'+inttostr(npagecount);

 

L

lcm40

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-06

• #7

prn_win.prnfckbb.prepare;
prn_win.p.caption := inttostr(prn_win.prnfckbb.pagenumber);
prn_win.prnfckbb.preview;

 

D

Delphizhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-06

• #8

来自：linghe, 时间：2007-10-5 17:41:53, ID：3839876
QuickRep1.Prepare();
label.caption="第"+IntToStr(QRPreview1.PageNumber)+"页"+"共"
+ IntToStr(QuickRep1.PageNumber)+"页";
QuickRep1.Preview();
这个不可以吗?

 

L

linuxping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-06

• #9

totalPages变量嘛