TPrintPreview, TPrinterSetupDlg: Anzahl gedruckte Seiten

LokutusvB · Beiträge: 74 WinXP Delphi 5, Delphi XE

Guten Morgen,

ich habe mir ein Formular mit einer TPrintPreview erstellt. Mit Hilfe des TPrinterSetupDlg drucke ich die Seiten aus. Was ich bisher nicht hinbekommen habe, ist die Ermittlung der Anzahl der tatsächlich gedruckten Seiten. Denn im DruckerDlg kann ich beliebig viele Kopien einstellen. Kann ich das für mein Formular irgendwie temporär deaktivieren oder kann ich die Anzahl der tatsächlich gedruckten Seiten ermitteln?

LokutusvB · Beiträge: 74 WinXP Delphi 5, Delphi XE

Da es so nicht möglich ist, wollte ich das ganze ohne den Windows-Druck-Dialog eröffnen.

Dafür lese ich die Drucker aus und fülle damit eine Combobox. Vor dem Druck setzte ich den PrinterIndex. Aber egal, welchen Drucker ich wähle, die TPrintPreview druckt immer auf den Standard-Drucker. Wo liegt der Fehler?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

DruckVS.PrintJobTitle := 'Druck_' + IntToStr(AtgNr);
//SysPrinter.PrinterIndex := cbPrinter.ItemIndex;
SysPrinter.PrinterIndex := SysPrinter.Printers.IndexOf(cbPrinter.Text);
DruckVS.SetPrinterOptions;
DruckVS.UpdateAnnotation;
DruckVS.Print;

DruckVS ist vom Typ TPrintpreview
SysPrinter ist vom Typ TPrinter

bummi · Verfasst: Do 27.01.11 15:23

einfach Printer.PrinterIndex nicht SysPrinter.PrinterIndex setzen?

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

LokutusvB · Beiträge: 74 WinXP Delphi 5, Delphi XE

Wenn nur alles so einfach wäre. Ich danke dir!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme