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

[lanxin7705]

假如说我现在在打印预览中有6页数据,现在我打印的是第几页我知道了,请问我如何统计出在打印预览中的数据页数(所有数据)

[c97164]

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

[lanxin7705]

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

[沧-海-桑-田]

在生成数据后再提交一次就知道了

[longquan]

QuickRep1.Prepare;

QuickRep1.Preview;

[lanxin7705]

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

[longquan]

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

[BoningSword]

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

[hezchuan168]

QuickRep1我用过，不错的哦！

[Henc]

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