通过唯一标识（MAC/IP）指定打印机的Access VBA实现方案问询

我来帮你搞定这个头疼的问题——跨设备开发时，打印机名称不统一确实是Access打印功能的常见痛点，靠Application.Printers枚举名称根本没法稳定匹配。不过我们可以通过硬件/网络唯一标识或者用户预配置的方式来解决，下面是几个可行的方案：

方案1：用WMI获取打印机的IP/MAC/硬件ID #

Windows的WMI（Windows Management Instrumentation）能查询到打印机的深层信息，包括网络打印机的IP地址、本地打印机的硬件ID，这些都是不会轻易变动的唯一标识。我们可以用VBA调用WMI，把这些标识和Access的打印机列表关联起来。

示例VBA代码 #

首先写个函数获取指定打印机的网络/硬件信息：

Function GetPrinterUniqueID(printerName As String) As String
    Dim wmiService As Object
    Dim printers As Object
    Dim printer As Object
    Dim query As String
    
    Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
    ' 转义单引号避免SQL语法错误
    query = "SELECT * FROM Win32_Printer WHERE Name = '" & Replace(printerName, "'", "''") & "'"
    Set printers = wmiService.ExecQuery(query)
    
    For Each printer In printers
        ' 网络打印机直接取PortName（通常就是IP地址）
        If printer.PortName Like "*.*.*.*" Then
            GetPrinterUniqueID = "IP:" & printer.PortName
        ' 本地打印机取硬件DeviceID
        ElseIf printer.DeviceID <> "" Then
            GetPrinterUniqueID = "HWID:" & printer.DeviceID
        End If
    Next
    
    ' 清理对象
    Set wmiService = Nothing
    Set printers = Nothing
    Set printer = Nothing
End Function

然后遍历Access的打印机列表，匹配你预先知道的目标标识：

Function GetTargetPrinter(targetID As String) As Printer
    Dim prt As Printer
    Dim currentID As String
    
    For Each prt In Application.Printers
        currentID = GetPrinterUniqueID(prt.DeviceName)
        ' 匹配目标标识（比如你提前记录的IP：IP:192.168.1.100）
        If currentID = targetID Then
            Set GetTargetPrinter = prt
            Exit Function
        End If
    Next
    
    ' 没找到就 fallback到默认打印机
    Set GetTargetPrinter = Application.Printers(0)
End Function

方案2：直接匹配打印机的PortName或DeviceID #

很多网络打印机的PortName就是静态IP地址，本地打印机的DeviceID是系统分配的唯一硬件标识（类似USBPRINT\HP_LaserJet_400\7&123456&0&USB001）。你可以先在目标设备上获取这个值，然后在代码里直接匹配：

示例代码 #

Function SetTargetPrinter() As Printer
    ' 提前在目标设备上获取的打印机标识（比如IP或DeviceID）
    Const TARGET_ID As String = "192.168.1.100"
    
    Dim prt As Printer
    
    For Each prt In Application.Printers
        ' 匹配IP地址（适用于网络打印机）
        If prt.PortName = TARGET_ID Then
            Set SetTargetPrinter = prt
            Exit Function
        End If
        ' 或者匹配本地打印机的DeviceID
        ' If prt.DeviceID = TARGET_ID Then
        '     Set SetTargetPrinter = prt
        '     Exit Function
        ' End If
    Next
    
    ' 找不到就用默认打印机兜底
    Set SetTargetPrinter = Application.Printers(0)
End Function

方案3：让用户首次使用时配置并保存 #

如果没法提前知道目标打印机的标识，最稳妥的方式是做个简单的设置界面，让用户第一次用的时候选好目标打印机，然后把它的唯一标识存在Access的表中，后续直接读取匹配：

具体步骤 #

1. 创建一个PrinterSettings表，字段：SettingName（文本，主键）、SettingValue（文本）。
2. 做个设置表单，加个组合框绑定Application.Printers，让用户选择打印机，然后保存标识：

Sub SaveUserSelectedPrinter()
    Dim selectedPrt As Printer
    Dim rs As Recordset
    
    Set selectedPrt = Me.cbo_PrinterSelect.Value ' 组合框名称自己改
    Set rs = CurrentDb.OpenRecordset("PrinterSettings", dbOpenDynaset)
    
    ' 检查是否已有保存的设置，没有就新增，有就更新
    rs.FindFirst "SettingName = 'TargetPrinter'"
    If rs.NoMatch Then rs.AddNew
    rs!SettingValue = selectedPrt.DeviceID ' 保存DeviceID作为唯一标识
    rs.Update
    
    rs.Close
    Set rs = Nothing
    Set selectedPrt = Nothing
End Sub

3. 打印时读取保存的标识，匹配打印机：

Function LoadSavedPrinter() As Printer
    Dim rs As Recordset
    Dim savedID As String
    Dim prt As Printer
    
    Set rs = CurrentDb.OpenRecordset("SELECT SettingValue FROM PrinterSettings WHERE SettingName = 'TargetPrinter'")
    If Not rs.EOF Then
        savedID = rs!SettingValue
        For Each prt In Application.Printers
            If prt.DeviceID = savedID Then
                Set LoadSavedPrinter = prt
                Exit Function
            End If
        Next
    End If
    
    ' 没找到就用默认打印机
    Set LoadSavedPrinter = Application.Printers(0)
    rs.Close
    Set rs = Nothing
End Function

一些注意点 #

• 网络打印机最好设置静态IP，不然IP变了匹配就失效了。
• 本地打印机的DeviceID可能会因为USB端口更换而变动，这种情况下用WMI查硬件ID会更稳定。
• 调用WMI需要普通用户权限就行，不用管理员权限。

内容的提问来源于stack exchange，提问作者TomBombadil