菜鸟提问（是关于TQuickReport的），请回答。(50分)

我在打印报表时，想在每张报表上都打印出：
第 X 页 共 X X 页
不知在TQuickReport中如果设置。谢谢。

用程序可以实现，先算出本次打印的页数，再在QREPORT中加入LABEL做，具体算法可发
EMAIL问我

你应该先检索一下的
定义一个全局变量记录总页数：
var
nPageCount: Integer;
在预览或打印之前调用QuickRep的Prepare方法，就可以得到总页数——
QuickRep1.Prepare;
nPageCount := QuickRep1.QRPrinter.PageCount;
在需要显示页号信息的地方放一个QRLabel，在它的OnPrint事件里这样写——
procedure TForm1.QRLabel1Print(sender: TObject;
var Value: String);
begin
Value := Format('第%2d页 共%2d页', [QuickRep1.QRPrinter.PageNumber, nPageCount]);
end;

多人接受答案了。