'*********************************************************
' wshPrinters
'
' Esta función devuelve una colección con los nombres de
' las impresoras instaladas en el sistema
'
' Se puede poner en un módulo estadar para que pueda ser
' llamada desde cualquier punto de la aplicación y 
' enumerar sus elementos como si de cualquier colección
' se tratase. Por ejemplo, este procedimiento escribirá
' en la ventana inmediato los nombres de todas las 
' impresoras instaladas
'
Sub EnumPrinters()
Dim prn As Variant

    For Each prn In wshPrinters
        Debug.Print prn
    Next
    
End Sub
'
' Coloca esta función en un módulo estandar
'
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
'*********************************************************