Demo - Auf bestimmten Druckerschacht ausdrucken

[uwewo]

Hi,

habe mich in den letzten 2 Tagen damit rumgeschlagen über Delphi die Druckerschächte und Papierformate auszulesen und gegebenenfalls auch auf diesen zu drucken.

Überall im www kann man Codeschnipsel finden aber leider nichts komplettes.
Habe deshalb Teile der Schnipsel in eine Unit zusammengefügt und erweitert.

Da ich natürlich keine hunderte von Drucker zum testen zur Verfügung habe, hier ein kleines Demo
zum testen.

Danke vorab zu jedem Feedback!

Beim starten des Programs sollte der Standard-, drucker, schacht und das Papierformat eingestellt sein. Beim wechseln des Druckers sollte sich Schacht und Papierformat ändern.

Source kann ich wenn gewünscht gerne anhängen.