Aps, lo entendí de otra forma.
Para tu Preview Personalizado, tendrás que hacer uso de TQRPreview, y dicho Objeto tiene un evento de Page Available
Preview : TQRPreview;
Código Delphi
[-]
uses QRPrntr, QuickRpt, QRCTRLS;
procedure TPrevi.PreviewPageAvailable(Sender: TObject; PageNum: Integer);
begin
case Preview.QRPrinter.Status of
mpReady: StatusBar1.Panels[0].Text := 'Listo';
mpBusy: StatusBar1.Panels[0].Text := 'En Proceso';
mpFinished:StatusBar1.Panels[0].Text := 'Finalizado';
end;
No creo que necesites otros "uses" y puede que incluso te sobren.
saludos