Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi QuickReport vorschau auf einer Selbstgebauten Form anzeigen (https://www.delphipraxis.net/69908-quickreport-vorschau-auf-einer-selbstgebauten-form-anzeigen.html)

Christian18 22. Mai 2006 11:18


QuickReport vorschau auf einer Selbstgebauten Form anzeigen
 
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 22. Mai 2006 12:18

Re: QuickReport vorschau auf einer Selbstgebauten Form anzei
 
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 22. Mai 2006 12:21

Re: QuickReport vorschau auf einer Selbstgebauten Form anzei
 
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 22. Mai 2006 12:28

Re: QuickReport vorschau auf einer Selbstgebauten Form anzei
 
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 22. Mai 2006 12:56

Re: QuickReport vorschau auf einer Selbstgebauten Form anzei
 
Liste der Anhänge anzeigen (Anzahl: 1)
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:
Delphi-Quellcode:
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:50 Uhr.

Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf