检测默认打印机是否开启“保留打印的文档”功能

玉树TMD临风

Access里检测当前默认打印机是否开启“保留打印的文档”功能。这个功能是使用代码读取文档打印记录的重要前提。

以下代码写到模块中去。
Public Function RPrinList(Optional ByRef 默认打印机) As String  '返回所有联机的打印机
    Dim Str As String, i As Integer
    If Printers.Count < 1 Then Exit Function    '没有打印机
    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set colPrinters = objWMI.ExecQuery("Select * from Win32_Printer")
    For Each objx In colPrinters
        If objx.Default = True Then             ‘默认打印机
            If (Int(objx.Attributes / 256)) Mod 2 = 0 Then    ' 检查是否保留打印的文档,保留则为否，未保留则为是
                MsgBox "当前默认的打印机为“" & objx.Name & "”,“保留打印的文档”目前未设置"          '此处可以改为你的过程
            End If
        End If
    Next
End Function

在过程中直接Call RPrinList即可
有些老式或便宜的打印机可能没有“保留打印的文档”功能，以上代码遇到这种打印机不知道会不会报错，没有测试过。

tmtony

谢谢分享源码，加分了！