Sub Printer_List()
Dim objWMIService As Object
Dim objPrinter As Object, objPrinterCol As Object
Dim i As Long
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objPrinterCol = objWMIService.ExecQuery("Select * from Win32_Printer")
Columns(1).Clear
Cells(1, 1) = "installierte Drucker"
i = 2
For Each objPrinter In objPrinterCol
Cells(i, 1) = objPrinter.Name
i = i + 1
Next
Columns(1).AutoFit
End Sub