Drucken von Seite ... bis Seite

[Klaus Bissinger]

Hallo,<BR>
sicherlich ist mein "Problem" ein ganz kleines, aber komm' einfach nicht auf die Lösung:,<BR>
im Druckdialog will ich erreichen, dass der Anwender z.B. bei insgesamt 20 Seiten,<BR>
nur die Seiten 1 bis 5 drucken lässt. Im Dialog wird zwar alles korrekt angezeigt, gedruckt<BR>
wird jedoch alles und nicht die selektierten Seiten.
Mein Quellcode lautet:,<BR>
begin,<BR>
PrintDialog1.Options := [poPageNums];,<BR>
PrintDialog1.PrintRange := prPageNums;,<BR>
PrintDialog1.MinPage := 1;,<BR>
PrintDialog1.MaxPage := (QRPreview1.QRPrinter.PageCount);,<BR>
PrintDialog1.FromPage := 1;,<BR>
PrintDialog1.ToPage := (QRPreview1.QRPrinter.PageCount);,<BR>
if,<BR>
PrintDialog1.Execute,<BR>
then begin ,<BR>
QRPreview1.QRPrinter.print; //mit diesem Befehl wird leider alles gedruckt.,<BR>

Ich arbeite mit D 4 Prof QReport 3,<BR>

Wie heißt der Schlüssel, damit nur die gewünschten Seiten gedruckt werden?,<BR>

Für einen Lösungshinweis wäre ich dankbar.,<BR>

[Matthias Fichte]

Hallo,<BR>
versuche es mal mit QuickRep1.PrinterSettings.FirstPage und LastPage<BR>
Das PrinterDialog würde ich aber vorher aufrufen<BR>
if PrinterDialog1.Execute then begin<BR>
QuickRep1.PrinterSettings.FirstPage := PrinterDialog1.MinPage;<BR>
QuickRep1.PrinterSettings.LastPage := PrinterDialog1.MaxPage;<BR>
end;<BR>

Hoffe es klappt<BR>
Gruß<BR>
Matthia

[Klaus Bissinger]

Hallo Matthias,

danke für Deine Hilfestellung.<BR>

Mit folgender Anweisung hat es jetzt funktioniert: <BR>

procedure TForm4.ToolButton5Click(Sender: TObject);<BR>

begin<BR>
printdialog1.maxpage := qrpreview1.qrprinter.PageCount;<BR>
printdialog1.topage := qrpreview1.qrprinter.PageCount;<BR>
if printdialog1.execute = true then begin<BR>
QRpreview1.qrprinter.copies := printdialog1.Copies;<BR>
QRpreview1.qrprinter.firstpage := printdialog1.FromPage;<BR>
QRpreview1.qrprinter.LastPage := printdialog1.ToPage;<BR>
QRPreview1.QRPrinter.Print;<BR>

end;<BR>
end;<BR>

Vielleicht ist dies bei meiner Anfrage nicht so rübergekommen:<BR>
ich öffne zunächst die Vorschau des Reports um dann die Optionen<BR>
Drucken, Speichern usw. wahrzunehmen.<BR>

Gruß<BR>
Klaus<BR&gt