QuickRep1中的总页码如何行到???急............

Question

如何得出QuickRep1一共有多少页??

Answer 1

方法一
给你写段(QuickRpt为放在YourRptName窗体上的quickreport)：  
       YourRptName  :=  TYourRptName.Create(Self);  
       try  
           try  
               YourRptName.QuickRpt.Prepare;  
               PageCount  :=  YourRptName.QuickRpt.QRPrinter.PageCount;  
           finally  
               YourRptName.QuickRpt.QRPrinter.Free;  
               YourRptName.QuickRpt.QRPrinter  :=  nil;  
           end;  
           YourRptName.QuickRpt.Preview;  
       finally  
           YourRptName.Free;  
       end;  
方法二
我用QRPreview做了一个中文的预览打印界面，现在不知如何能得到报表的总页数，请各位高手赐教！  
---------------------------------------------------------------  
 
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;  
 
上面代码经调度通过！如还有问题，请自行检查解决！