Discussion :

[akli_agha]

Bonjour,

Comment lister les imprimantes disponibles avec TPrinter.Printers ?

XP, D7

[Lung]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
uses Printers
...
var
   i: Integer;
   sz: String;
begin
   sz := '';
   for i:=0 to Pred(Printer.Printers.Count) do
      sz := sz + Printer.Printers[i] + #13#10;
   ShowMessage(sz);