listar impresoras disponibles en la red ?

guillermo
15 de Enero del 2005
Escribí el típico codigo : For each Xprint in printers ... y solo me lista la impresora predeterminada repetida tres veces (tengo tres impresoras instaladas). Agradeceré me puedan ayudar.

kipied
15 de Enero del 2005
Con este código me funciona bien para listar en list1:
Dim XPrint As Printer

For Each XPrint In Printers
List1.AddItem XPrint.DeviceName
Next