Fast Report的说明文档中已经明确的说不能统计总页数,除非运行两次。
Quick Report的办法如下。
访问QuickReport控件的 QRPrinter.PageCount,在之前得Prepare
var
PageCount : Integer;
begin
with TQuickReport2.Create(Application) do
begin
try
Prepare;
PageCount :=QRPrinter.PageCount;
// 这里调用打印窗体里的过程,将页数(PageCount)做为参数传入
PreviewModal;
finally
Free;
end;