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

Code:

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

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

 lblHeight.Caption := pPrinter.PageHeight;

[himitsu]

Sag blos, dass nirgenwo in dem Beispiel etwas von der [B]Uses[/S] WinSpool zu lesen ist?

PS: Strg+Shift+F und nach PDriverInfo2 in *.pas des Verzeichnis $(BDS) mit Unterverzeichnissen suchen.



"Ich nutze Delphi 10.1"
Warum hast du das dann oben nicht angegeben, in diesem Unterforum? Weil da steht Delphi 5
Alternativ einfach im User-Profil angeben, damit es links beim Namen steht.

[peterbelow]

Zitat von 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.

Delphi-Quellcode:

  WriteLn(
    'Printer name: ', Printer.Printers[Printer.PrinterIndex],
    #13#10,
    'PageHeight: ',  Printer.PageHeight,
    #13#10,
    'PageWidth: ',  Printer.PageWidth);

TPrinter hat mittlerweile eine ganze Menge nützlicher Properties. Wenn Du direkt mit Windows DEVMODE-Records arbeiten willst sieh Dir mal die PB.PrintUtilsU Unit im angehängten Zip-File an.