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