Public vbPrinter As Printer
Public vbPrinters As New Collection
 
Private pClass As New vbPrinter.Class1
'===========================================
Private sub Drucken
Dim PrinterName as String
 
PrinterName = "HP LaserJet 5400"
 
Debug.Print "START================="
    For i = 0 To pClass.vbPrinters.Count - 1
        Debug.Print pClass.vbPrinters(i + 1).DeviceName
        If pClass.vbPrinters(i + 1).DeviceName = PrinterName Then
            Set Printer = vbPrinter
            Debug.Print "Gefunden: " & pClass.vbPrinters(i + 1).DeviceName
            Exit For
        End If
    Next i
Debug.Print "ENDE=================="
end sub

For Each vbPrinter In Printers
    Falls der vorhandene Drucker mit dem PrinterName
    übereinstimmt, wird dieser als "Printer"
    festgelegt (Set Printer = vbPrinter ).
        Debug.Print vbPrinter.DeviceName
        If vbPrinter.DeviceName = PrinterName Then
            Set Printer = vbPrinter
            Debug.Print "Drucker ausgewählt: " & vbPrinter.DeviceName
            Exit For
        End If
Next vbPrinter

=================================
[ZITAT]
Zwei Dinge sind unendlich, das Universum und die menschliche Dummheit, aber bei dem Universum bin ich mir noch nicht ganz sicher. - Albert Einstein