有没有人可以告诉我，怎么样获得总页数，事用什么变量？

Question

如题。谢谢！

Answer 1

你用的什么东西阿
问题都说不清楚
qreport
rave
还是其他
对了是做报表么?

Answer 2

是的，用的是Delphi自己带的报表。

Answer 3

也许对你有帮助：
Var  nPageCount:integer;
begin
  {...};
  QuickRep1.prepare;
  nPageCount:=QuickRep1.QRPrinter.PageCount; 
  QuickRep1.QRPrinter.Free;
  QuickRep1.QRPrinter:=nil;
  QuickRep1.PreView;
  {..};
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.CreateForm(TFormprint,Formprint);
  Formprint.Report.Prepare;
  Formprint.QRLabel4.Caption:=inttostr(Formprint.Report.Printer.PageCount);
  Formprint.Report.Preview;
end;

Answer 5

interface //Form1加下句uses quickrpt