如何显示报表总页数??请赐教!!(10分)

做的报表,能够显示总页数,对于打报表的人来说才能心里有数!! 如何显示总页数??

procedure TrkcxForm.PreBtnClick(Sender: TObject);
begin
PrintRccxForm:=TPrintRccxForm.Create(Application);
PrintRccxForm.QuickRep.Prepare;
try
nPageCount:=PrintRccxForm.QuickRep.QRPrinter.PageCount;
finally
PrintRccxForm.QuickRep.QRPrinter.Free;
end;
PrintRccxForm.QuickRep.QRPrinter := nil;
PrintRccxForm.QuickRep.Preview;
end;

顶顶。

访问QuickReport控件的 QRPrinter.PageCount，在之前得Prepare

var
PageCount : Integer;
begin
with TQuickReport2.Create(Application) do
begin
try
Prepare;
PageCount :=QRPrinter.PageCount;
// 这里调用打印窗体里的过程，将页数（PageCount）做为参数传入
PreviewModal;
finally
Free;
end;
end;

多人接受答案了。