procedure TfrmQR3Demo.Button1Click(Sender: TObject);
var nPageCount:integer;
begin
Report.Prepare;
nPageCount:=Report.QRPrinter.PageCount;
showmessage(inttostr(nPageCount));
Report.QRPrinter.Free;
Report.QRPrinter:=nil;
{在此修改QuickRep1,实现在页眉或页脚中打印"共 xx 页 第 xx 页" ... }
//Report.PreView;
end;