QuickReport Preview

[Larayna]

Ok, habe es schon gefunden(4 Codezeilen, zusammengereimt aus 3 verschiedenen Beispielen.. Rekord? )

Für alle die es interessiert:

Delphi-Quellcode:

with TQRPHandler.Create do
     begin
       try
          QRP2.QRPrinter := TQRPrinter.Create;
          QRP2.QRPrinter.Load(FileName);
          QRP2.PageNumber:=1;
          QRP2.Refresh;
       Except
           On E:Exception DO ShowException(E,@ShowReport);
       end;
       Free;
     end;