Dim i As Long
 
For i = 0 To Printers.Count - 1
  If Printers(i).DeviceName = "Gesuchter Drucker" Then
    Debug.Print Printers(i).DeviceName, Printers(i).PaperBin
  End If
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de