Delphi/Lazarus: Verfügbare Drucker anzeigen und ändern

In diesen Tipp möchte ich euch zeigen, wie ihr mit Delphi oder Lazarus eine Liste aller verfügbaren Drucker anzeigen lassen könnte und wie ihr den Drucker zum Drucken eurer Dokumente ändern könnte.

Die Unit "printers" muss in euren USES-Abschnitt hinzugefügt werden, damit es funktioniert.

Verfügbaren Drucker anzeigen

Eine Liste aller verfügbaren Drucker findet ihr in:

printer.printers

Da printer.printers eine normale String-Liste ist, könnte ihr sie einfach in einer normalen Schleife durchlaufen und zum Beispiel für eine Auswahl zu einer ComboBox hinzufügen.

Standarddrucker auslesen

Der Standarddrucker ist in printer.printers voreingestellt. Sein Index lässt sich einfach durch printer.printerindex auslesen:

printer.printers[printer.printerindex]

Ihr greift einfach mit dem entsprechenden Index auf die Stringlist zu.

Drucker ändern

Um einen anderen Drucker auswählen zu können, könnt ihr folgenden Befehl benutzen:

printer.printers.IndexOf('Drucker Name')

// oder

printer.setprinter('Drucker Name');

Natürlich sollte der Name "Drucker Name" auch in der Liste der verfügbaren Drucker auftauchen, damit es funktioniert.