Sub Get_Printer_Info()
Dim objWMIService As Object
Dim objPrinterList As Object, objPrinter As Object, objPrinterCol As Object
Dim strPCName As String
strPCName = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strPCName & "\root\cimv2")
Set objPrinterCol = objWMIService.ExecQuery("Select * from Win32_Printer")
For Each objPrinter In objPrinterCol
With objPrinter
Debug.Print .Name
If .Name = "Dymo 450" Then
Tabelle1.PrintOut ActivePrinter:=.Name
Exit Sub
End If
End With
Next
MsgBox "Der Drucker ""Dymo 450"" konnte nicht gefunden werden!"
End Sub