Drucker einstellen

Sub Get_Printer_Info()
'by Ramses
'speichert alle Drucker in einem Array
Dim objWMIService As Object
Dim objPrinterList As Object, objPrinter As Object, objPrinterCol As Object
Dim strPCName As String
Dim i As Long
'Lokaler Computer
'"." ist der lokale Computer
'Ansonsten den RemoteComputernamen angeben um von dort die Drucker auszulesen
'u.U. sind dort Adminrechte nötig
strPCName = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" &  _
strPCName & "\root\cimv2")
Set objPrinterCol = objWMIService.ExecQuery("Select * from Win32_Printer")
'Liste der wichtigsten zurückgegebenen Werte die möglich sind zum Abfruf
'die vollständige Liste unter
'http://msdn.microsoft.com/en-us/library/aa394363(VS.85).aspx
' string Caption;
' string CharSetsSupported[];
' uint16 CurrentLanguage
' string CurrentPaperType
' boolean Default
' uint16 DetectedErrorState;
' string DeviceID;
' boolean Direct;
' boolean ErrorCleared;
' string ErrorDescription;
' string ErrorInformation[];
' boolean Local;
' string Location;
' string Name;
' boolean Network;
' string Parameters;
' string PNPDeviceID;
' string PortName;
' uint32 PrinterState;
' uint16 PrinterStatus;
' string ServerName;
' boolean Shared;
' string ShareName;
' boolean SpoolEnabled;
' datetime StartTime;
' string Status;
' uint16 StatusInfo;
' string SystemName;
' boolean WorkOffline
i = 0
For Each objPrinter In objPrinterCol
With objPrinter
ReDim Preserve prtArray(i)
prtArray(i) = .Name
i = i + 1
End With
Next
'mist klappt ncht MsgBox objPrinter.Name, vbInformation, "Druckerliste WMI"
End Sub