Visual Basic - objeto printer. por favor !!

tengo una aplicacion que utiliza el objeto printer.
La cosa es que no ve todas las impresoras que esta instalada en la maquina. osea el collection no trae todas los nombre de las impresoras instaladas...
Por favor si alguno le paso y sabe algo ....
desde ya muchas gracias..

saludos rody

todas las impresoras se instalaron con sus drivers correspondientes?, es decir, ¿aparecen todas en l apantalla de Impresoras y Faxes de Windows?

Un saludo

primeramente gracias por tu tiempo..

Te voy a detallar mas asi tenes un panorama mejor..
hay una aplicacion que esta en varios servidores, la cuestion es que en algunos no levanta todos los nombres de todas las impresoras instaladas... pero cuando pones en el combo (dentro de la aplicacion y a mano ) el nombre de la impresora en la cual queres imprimir (que no se vè), se imprime sin ningun problema....esto ya venia pasando , pero ahora se instalo otra y no se ve ninguna de las impresoras salvo la ultima que se instalo (osea ese que se instalo), pero si pones el nombre de cualquiera se sigue imprimiendo sin ningun problema(igual que antes), entonces lo que decidieron es desintalar la ultima instalada para que se vea la mayor cantidad de impresoras instaladas en la maquina(o servidor).
cuando se instalo me dicen (no lo puedo asegurar 100% porque yo no lo instale) que SI se ven todas las impresoras en la carpeta de Impresoras y Faxes de Windows .....
la verdad ya no se que hacer con esto.
como dije al principio gracias por tu tiempo.
un abrazo Rody

'*****Esta ponla en un modulo estandar para llamara desde cualquier parte

Public Function wshPrinters() As Collection
Dim wshNetwork As Object 'New wshNetwork
Dim col As New Collection
Dim i As Integer

Set wshNetwork = CreateObject("WScript.Network")

With wshNetwork.EnumPrinterConnections
For i = 0 To .Count - 1
If i Mod 2 <> 0 Then
col.Add .Item(i)
End If
Next
End With

Set wshPrinters = col

Set col = Nothing
Set wshNetwork = Nothing

End Function

'************************************************************************************
'En este ejemplo rellenas un listbox con todas la impresoras instaladas
Private Sub Form_Load()

Dim Printer As Variant

For Each Printer In wshPrinters
ListPrinter.AddItem Printer
Next

End Sub