Druckerstatus abfragen
Thomaso
Möchte gerne bevor ich einen Druck aufgebe wissen ob der Netzwerkdrucker eingeschalten und bereit ist ansonsten eine Meldung einblenden. Habe gegoogelt und immerhin rausgefunden, dass die Eigenschaft Workoffline heisst aber denoch den Code nicht zum laufen gebracht:-(
Sub Druckerstatus()
Dim objPrinter As Object
Set objPrinter = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from _
Win32_Printer where Name='\\SRWAG001\ls-plotter'")
If objPrinter.workoffline = "WAHR" Then
MsgBox "Bitte den Drucker einschalten!!"
End If
End SubBesten Dank für einen Tipp
Gruss
TOM