Accueil > Manip’s > Visual Basic 6 > Imprimer > Lister les Imprimantes Disponibles
VB, PRINTERS
Lister les Imprimantes Disponibles
mercredi 17 décembre 2008, par
Dim IMPRIMANTE As Printer
List1.Clear
For Each IMPRIMANTE In Printers
List1.AddItem IMPRIMANTE.DeviceName
Next
Cette boucle automatique simplifiée peut aussi s’écrire :
for i = 0 to Printers.Count-1
List1.AddItem Printers(i).DeviceName
next i