Printer auslesen

**OptPrime**

Hallo Zusammen,

ich möchte in meiner Anwendung gerne sehen, wie das Layout (Breite, Höhe) des Druckertreibers vom Standarddrucker oder auch anderen Druckern eingestellt sind.
Auf Delphi-Treff habe ich unter anderem diese Seite gefunden:

https://www.delphi-treff.de/tipps-tr...eigenschaften/
Da habe ich jedoch Probleme das mein Delphi "PDriverInfo2" wohl nicht findet. Muss ich hierzu irgend ein Paket installieren?

Wenn ich unten stehenden Code ausführe habe ich außerdem das Problem den aktuellen Drucker zu setzen. Die IDE Hängt sich immer auf wenn er versucht .SetPrinter aufzurufen. Eventuell habe ich hier auch die komplett falsche Vorgehensweise. Hat jemand eine elegantere Lösung?

Vielen Dank.

Ich nutze Delphi 10.1

markieren

Code:

			Printer.GetPrinter( ADevice, ADriver, APort, ADeviceMode );

 pPrinter.SetPrinter(ADevice,ADriver,APort, ADeviceMode);

 lblHeight.Caption := pPrinter.PageHeight;

Printer auslesen

Printer auslesen

Forumregeln