QuickReport vorschau auf einer Selbstgebauten Form anzeigen

[Christian18]

Hallo,

wie kann ich ein QuickReport auf einer Selbstgebauten Form anzeigen lassen??? Wenn ich die Eigenschaft Parent nutze, dann zeigt mir der QuickReport auch die einzelnen Bänder an. Das will ich verhindern. Ich will auf meiner Selbstgebauten Form eine Druckvorschau haben. Wie halt bei den QuickReports. Hat jemand einen Tip für mich wie ich das machen kann???

Mit freundlichen Grüßen

Christian18

[Sourcemaker]

Hallo,

benutzt Du die Komponente TQRPreview ?

Es gibt auf der Quickreport-Homepage ein Beispiel: downloads[/url]http://www.qusoft.com/getfile.asp?level=0&Filename=CUSTPREV.ZIP

Ggf. könnte ich die meine angepasste Preview-Form zur Verfügung stellen.

Grüße

Frank

[Christian18]

Hallo,

ja deine Angepasste Preview Form wäre echt nicht schlecht. Könnte ich da auch noch ergänzungen machen??? wenn was fehlt oder so???

MFG Christian18

[chaosben]

Du könntest dir auch die einzelnen Seiten vom TQRPrinter geben lassen. Das sind *.tif Bilder, die du einfach in einem TImage darstellen kannst.

[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