Office中国论坛/Access中国论坛

标题: 检测默认打印机是否开启“保留打印的文档”功能 [打印本页]

作者: 玉树TMD临风 时间: 2016-3-5 22:31
标题: 检测默认打印机是否开启“保留打印的文档”功能
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 时间: 2016-3-5 23:05
谢谢分享源码，加分了！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)