Alle verfügbaren Drucker ermitteln |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
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;