[yapt]

Basicamente el "truco" está en el Prepare. Busca en la ayuda de QuickReport sobre Prepare, pero sería algo así:

Código Delphi [-]
 
QuickRep1.Prepare;
try
    QuickRep1.ReportTitle := 'Total de Páginas ' +
                      IntToStr(QuickRep1.QRPrinter.PageCount) + ' pages';
finally
    QuickRep1.QRPrinter.Free;
    QuickRep1.QRPrinter := nil;
end;
QuickRep1.Preview;

No lo he probado. Ya nos dirás si funciona.

Saludos.