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;