如何获取报表页数?(20分)

Y

yanzhong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-11

• #1

QuickReport1.Prepare;
qrPage.Caption:=inttostr( QuickReport1.QRPrinter.PageNumber);
QuickReport1.QRPrinter.Free;
QuickReport1.QRPrinter:=nil;
QuickReport1.Preview;
用上面的代码后，预览是空的，实际有三页的东西

 

A

a-ming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-11

• #2

QuickReport1.Prepare;
qrPage.Caption:=inttostr( QuickReport1.QRPrinter.PageNumber);
//删除这行 QuickReport1.QRPrinter.Free;

//删除这行 QuickReport1.QRPrinter:=nil;
QuickReport1.Preview;

 

B

Boat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-02

• #3

free、nil后肯定什么都没有了

 

S

sun_boy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-03

• #4

try
QuickReport1.Prepare;
qrPage.Caption:=inttostr( QuickReport1.QRPrinter.PageNumber);
QuickReport1.Preview;
finally
QuickReport1.QRPrinter.Free;
QuickReport1.QRPrinter:=nil;
end;