Accueil > Manip’s > Visual Basic 6 > Imprimer > Lister les Imprimantes Disponibles

VB, PRINTERS

Lister les Imprimantes Disponibles

mercredi 17 décembre 2008, par bluegyn_spip

Imprimer facilement un formulaire

Gérer le Bouton Annuler

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