检查打印机是否为【脱机】状态。各种状态提取参照！

时　间:2014-10-09 11:17:06
作　者:litao   ID：37995  城市：上海
摘　要:通过检查【Win32_Printer】的 Attributes 属性 的（二进制 1024） 位的状态【PRINTER_ATTRIBUTE_WORK_OFFLINE】： 1为脱机，0为联机

Attributes属性 的各个二进制位，代表了打印机各种状态，可通过公式提取出来：

如：提取其1024位的状态： (Int(objx.Attributes / 1024)) Mod 2 
正　文:

通过检查【Win32_Printer】的 Attributes 属性 的（二进制 1024） 位的状态【PRINTER_ATTRIBUTE_WORK_OFFLINE】： 1为脱机，0为联机

Attributes属性 的各个二进制位，代表了打印机各种状态，可通过公式提取出来：

如：提取其1024位的状态： (Int(objx.Attributes / 1024)) Mod 2

‘========VBA代码================

Private Const 分隔符 As String = ",", 引号 As String = "'"

Sub cs001()
    MsgBox RPrinList
End Sub

Public Function RPrinList(Optional ByRef 默认打印机) As String  '返回所有联机的打印机
    Dim Str As String
    If Printers.Count < 1 Then Exit Function '没有打印机
    Str = ""
    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set colPrinters = objWMI.ExecQuery("Select * from Win32_Printer")
    
    For Each objx In colPrinters
        If (Int(objx.Attributes / 1024)) Mod 2 = 0 Then ' 检查是否脱机：  PRINTER_ATTRIBUTE_WORK_OFFLINE:
            Str = Str & 分隔符 & 引号 & objx.name & 引号
        End If
    Next

    If Str <> "" Then Str = Mid(Str, 2)
    RPrinList = Str
    If Printers.Count = 1 Then 默认打印机 = Str ’只有一台打印机，返回该打印机名作为 默认打印机
End Function

'==============Attributes 属性 说明=======================

AttributesData type: uint32Access type: Read-only

Bitmap of attributes for a Windows-based printing device.