Einem Quickrep-Preview einen Drucker per Dialog zuordnen

[Kai Möller]

<pre>
Hallo,

ich arbeite mit D4Enterprise und dem enthaltenen QR 3.0.5 Standard incl. des letzten Qusoft Patches dazu.

Ich habe eine Quickrep-Preview, die der Anwender per Druckbutton ausdrucken können soll.

Verwende ich dazu

qrpreview1.qrprinter.printsetup;

funktioniert der Abbrechen-Button des Dialogs nicht und es wird auf den Standarddrucker ausgegeben.

Die Verwendung von Tprintdialog etwa in dieser Form

printdialog1.maxpage := qrpreview1.qrprinter.AvailablePages;
printdialog1.topage := qrpreview1.qrprinter.AvailablePages;
if printdialog1.execute = true then begin
qrpreview1.qrprinter.copies := printdialog1.Copies;
qrpreview1.qrprinter.firstpage := printdialog1.FromPage;
qrpreview1.qrprinter.LastPage := printdialog1.ToPage;
QRPreview1.QRPrinter.Print;
end;

funktioniert, allerdings wird der ausgewählte Drucker ignoriert und immer auf den Standarddrucker ausgegeben.

Bitte dringend um Tipps !!!

Danke Kai.

[Bruno Danuseg]

Hallo,<p>
für die Sache mit dem Abbruch gibt es die Abfrage der Tag-Eigenschaft in dieser Form:<p>
<pre>
if TQuickRep(QRPrinter.Master).Tag = 0 then
QRPreview1.QRPrinter.Print
else
ShowMessage('Druckvorgang abgebrochen!');
</pre&gt

[Kai Möller]

Hallo Bruno,

danke für den Tipp, den ich schon anderswo im Forum und bei qusoft gefunden habe. Das Problem ist aber, dass ich zum Drucken nicht auf Tquickrep, sondern nur auf die Prewiew zugreife - siehe Sourcecode. Tpreview wiederum schert sich nicht um den Tag

[Bruno Danuseg]

Hallo,<p>
sorry, es muss natürlich so aussehen:<p>
<pre>
if TQuickRep(QRPreview1.QRPrinter.Master).Tag = 0 then
QRPreview1.QRPrinter.Print
else
ShowMessage('Druckvorgang abgebrochen!')

[Kai Möller]

Hallo Bruno,

nochmal danke, aber das nützt mir nichts, denn ich habe kein TQuickrep bzw. komme nicht ran (THSD QRDesigner). In den Units von THSD werde ich nicht herumpfuschen.

Vielleicht hat jemand doch den anderen Weg?

[Bruno Danuseg]

Hallo Kai,<p>
das verstehe ich jetzt nicht - kein Zugriff auf TQuickRep? Warum nicht? Ich arbeite auch mit QRDesign und einer eigenen Druckvorschau und es klappt genau so. Die QRPrinter-Eigenschaft des QRPreview hat mit Master einen Zeiger auf das (notwendige!) QuickRep. Demzufolge ist ein Zugriff auf QuickRep über QRPreview möglich

[Kai Möller]

Hallo Bruno,

wenn ich Dein Beispiel einfüge, bekomme ich beim Kompilieren:

Undeclared Identifier: TQuickrep

:-

[Bruno Danuseg]

Hallo,<p>
einfach Unit QuickRpt einbinden

[Kai Möller]

Hi Bruno,

ja klar, mit der Unit läuft's!!

Danke + Gruss Ka