怎样在报表预览时取得总共有多少页？

Question

为什么我用quickrep1.pagenumber没用？

Answer 1

use quickrptprocedure TForm1.Button1Click(Sender: TObject);
begin
  Application.CreateForm(TFormprint,Formprint);
  Formprint.QRreport.Prepare;
  Formprint.QRLabel1.Caption:=inttostr(Formprint.QRreport.Printer.PageCount);
  Formprint.QRreport.Preview;
end;

Answer 2

quickrep1.Prepare;
   qrlabel4.Caption:=inttostr(quickrep1.Printer.PageCount);
   QUICKREP1.Preview;

Answer 3

up
quickrep1.pagenumber 是当前正在产生的报表的页好

Answer 4

QuickRep1.Prepare；
nPageCount:=QuickRep1.QRPrinter.PageCount；
QuickRep1.QRPrinter.Free；
QuickRep1.QRPrinter:=nil；
QuickRep1.PreView；