QuickReport vorschau auf einer Selbstgebauten Form anzeigen

[Sourcemaker]

Hi,

hier meine PrevForm.
Ergänzen kannste du natürlich.
Du wirst beim Öffnen einige Komponenten nicht haben und es sind auch einige
Aufrufe dabei die sich auf persönliche Tools und Projektcode beziehen aber
ich denke das kann man bereinigen bzw. als Beispielcode verwenden.

Beispielcode für den Aufruf:
FMain.ShowPreview(Report, nPrn); Beispielcode für den Aufruf der Form:

Delphi-Quellcode:

function TFMain.ShowPreview(xQuickRep:TQuickRep; const nDrucker: Integer):Boolean;
var
   Child : TFPrevForm;
begin
   Child := TFPrevForm.Create(Self);
   Child.pQuickReport := xQuickRep;

   Child.QRPreview.QRPrinter := xQuickRep.QRPrinter;
   Child.QRPrinter           := xQuickRep.QRPrinter;
   Child.nDrucker            := nDrucker;
   Child.fonSetPageSettings  := XSetPageSettings;

   if Child.ShowModal = mrOk then Result := True
   else result := False;
   Child.Release;
   lUsePageSettings := False;
end;

Grüße

Frank