很简单的问题!!!报表控件QuickRep的页数显示问题!!!

Question

真正的页数是quickreport控件中的预览页数减一，，，要给分哦。。:))

Answer 1

我要统计出打印预览中的总页数,如何写代码啊,我很急的,我用的是Query1数据集
谢谢了

Answer 2

那我如何用Qrlabel显示出总的页数呢,为什么都没有帮我解决这个问题呢?????
怎么写程序啊

Answer 3

//在 Qrlabel.Print 设置
procedure TForm1.Qrlabel1Print(sender: TObject; var Value: String);
begin
  value := format('%d / %d, 
   [QuickRep1.PageNumber, QuickRep1.QRPrinter.PageCount]);
end;

Answer 4

QuickRep1.Prepare;
QuickRep1.pagenumber； //就是他，我还刚做完

Answer 5

QuickRep1.Prepare ;
QRLabl1.Caption := inttostr(.QuickRep1.QRPrinter.PageCount);
QuickRep1.QRPrinter.Free;
QuickRep1.QRPrinter:=nil;
..........
..........
QuickRep1.preview;