急救！QReport组件中QRPreview的问题！

Question

Prepare  //事先doQRPrinter.PageCount;

Answer 1

TO CoolSlob() :
我试过了，不行，我在这个界面里放了一个StatusBar控件，目的是让报表的总页数显示在StatusBar上，但我用了QRPrinter.PageCount取出的结果却是0，不知怎么回事，请多指教！

Answer 2

？
with query do 
...
open;
...PageCount;

Answer 3

QuickReport中的
  public
    vPageCount: Integer;
Form1.Button1OnClick(Sender: TObject);
begin
  QuickReport.Prepare;
  QuickReport.vPageCount := QuickReport.QRPrinter.PageCount;
  QuickReport.Preview;
end;

Answer 4

QuickReport中的
  public
    vPageCount: Integer;
Form1.Button1OnClick(Sender: TObject);
begin
  QuickReport.Prepare;
  QuickReport.vPageCount := QuickReport.QRPrinter.PageCount;
  QuickReport.Preview;
end;

Answer 5

QuickReport中的
  public
    vPageCount: Integer;
Form1.Button1OnClick(Sender: TObject);------注意这里不是OnPreview
begin
  QuickReport.Prepare;
  QuickReport.vPageCount := QuickReport.QRPrinter.PageCount;
//上面代码不能放入OnPreview区!!!!注意这里的位置关系!!
  StatusBar1.Panels[0].Text := IntToStr(QuickReport.vPageCount);  QuickReport.Preview; --　这里才Preview
end;上面代码经调度通过！如还有问题，请自行检查解决！