Public Function PrinterOffline(Optional pstrPrinter As String = "Default") As Boolean
	Dim strWhere As String
	Dim objWMI As Object
	Dim objPrinters As Object
	Dim objPrinter As Object
 
	Set objWMI = GetObject("winmgmts:\\.\root\CIMV2")
	If LCase$(pstrPrinter) = "default" Then
		strWhere = "Default = True"
	Else
		strWhere = "Name = '" & pstrPrinter & "'"
	End If
	Set objPrinters = objWMI.ExecQuery("SELECT * FROM Win32_Printer WHERE " & strWhere)
	For Each objPrinter In objPrinters
		PrinterOffline = objPrinter.WorkOffline
		Exit For
	Next
	Set objPrinter = Nothing
	Set objPrinters = Nothing
	Set objWMI = Nothing
End Function

Public Function PrinterOffline(Optional pstrPrinter As String = "Default") As Boolean Dim strWhere As String Dim objWMI As Object Dim objPrinters As Object Dim objPrinter As Object Set objWMI = GetObject("winmgmts:\\.\root\CIMV2") If LCase$(pstrPrinter) = "default" Then strWhere = "Default = True" Else strWhere = "Name = '" & pstrPrinter & "'" End If Set objPrinters = objWMI.ExecQuery("SELECT * FROM Win32_Printer WHERE " & strWhere) For Each objPrinter In objPrinters PrinterOffline = objPrinter.WorkOffline Exit For Next Set objPrinter = Nothing Set objPrinters = Nothing Set objWMI = Nothing End Function

Sub Check_Printer_Status()
    Dim strComputer As String
    Dim objWMIService
    Dim colInstalledPrinters
    Dim objPrinter
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
                                  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colInstalledPrinters = objWMIService.ExecQuery _
                               ("Select * from Win32_Printer where Default = 'True'")
 
    For Each objPrinter In colInstalledPrinters
        Select Case objPrinter.printerstatus
        Case 3
            MsgBox "A impressora está ociosa"
        Case 4
            MsgBox "Impressora esta imprimindo"
        Case 5
            MsgBox "A impressora está aquecendo"
        Case Else
            MsgBox "A impressora está desativada"
        End Select
    Next
End Sub

Sub Check_Printer_Status() Dim strComputer As String Dim objWMIService Dim colInstalledPrinters Dim objPrinter strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * from Win32_Printer where Default = 'True'") For Each objPrinter In colInstalledPrinters Select Case objPrinter.printerstatus Case 3 MsgBox "A impressora está ociosa" Case 4 MsgBox "Impressora esta imprimindo" Case 5 MsgBox "A impressora está aquecendo" Case Else MsgBox "A impressora está desativada" End Select Next End Sub