打印报表时，在页脚实现“当前页/总页数”？

Question

比如 "1/6"
?

Answer 1

将QRSysData的Data属性设为PageNumber可以显示当前页数，但不知怎样统计总页数

Answer 2

QuickRep1.Prepare;
PageTot:=PageNumber;  \\總頁數;

Answer 3

我用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;  
 
上面代码经调度通过！如还有问题，请自行检查解决！

Answer 4

我用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;  
 
上面代码经调度通过！如还有问题，请自行检查解决！

Answer 5

QuickRep1.Prepare;
QRLable1.Caption:=inttostr(quickrep1.printer.pagecount)+'/'+inttostr(quickrep1.printer.pagenumber);

Answer 6

有一个bug 在这里:QuickReport.Prepare;  
   QuickReport.vPageCount  :=  QuickReport.QRPrinter.PageCount;  
//上面代码不能放入OnPreview区!!!!注意这里的位置关系!!  
   StatusBar1.Panels[0].Text  :=  IntToStr(QuickReport.vPageCount); 
 //::Note:::::::::::::::::::::
   QuickReport.QrPrinter.Free;
   QuickReport.QrPrinter:=nil;
  //::::::::::::::::::::::::::::
 QuickReport.Preview;  --　这里才Preview

Answer 7

QuickRep1.Prepare;
QRLable1.Caption:='/'+inttostr(quickrep1.printer.pagenumber);之QRLable1前放一个QRSysData1其属性data:=qrsPageNumber;达到效果。