QuickReport 如何能在预览前取得总页码

Question

请问在QuickReport中如何能不用  Prepare 就能取得报表的总页码,我做的是三级主从表,而且数据量比较大,用  Prepare 会很慢,主要是想加快点预览时的响应速度,有什么好的办法吗?

Answer 1

可以在打印或打印预览前生成报表一次，方法是preparevar
  nPageCount:integer;
begin
  {...}
  QuickRep1.Prepare;
  nPageCount:=QuickRep1.QRPrinter.PageCount;
  QuickRep1.QRPrinter.Free;
  QuickRep1.QRPrinter:=nil;
  {在此修改QuickRep1，实现在页眉或页脚中打印“共**页 第**页”}
  QuickRep1.PreView;
  {...}
end;

Answer 2

不想用prepare
因为记录多,用prepare 会很慢,想找个能快点的方法