Home » Tipps & Tricks » Drucker » Druckereigenschaften » Alle verfügbaren Drucker ermitteln
Alle verfügbaren Drucker ermitteln
Diese Procedure ermittelt alle Drucker und die zugehörigen Fonts:
procedure TForm1.FormCreate(Sender: TObject); begin //Drucker ermitteln listbox1.items := printer.printers; end; procedure TForm1.ListBox1Click(Sender: TObject); begin //Fonts ermitteln printer.printerindex := listbox1.itemindex; listbox2.items := printer.fonts; end;