如何识别用户何时在Visual Basic 6.0中更改了Windows默认打印机?

有一个更简单的方法。当应用程序启动时,只需设置 Printer TrackDefault 财产 True .

Public Sub Main()

    Printer.TrackDefault = True

End Sub

当 轨迹默认值 财产是 这个 打印机 对象将自动跟踪通过控制面板对默认打印机所做的更改。

Private Declare Function GetProfileString Lib "kernel32.dll" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long


Public Function GetDefaultPrinter() As Printer

    Dim strBuffer As String * 254
    Dim iRetValue As Long
    Dim strDefaultPrinterInfo As String
    Dim tblDefaultPrinterInfo() As String
    Dim objPrinter As Printer

    ' Retreive current default printer information
    iRetValue = GetProfileString("windows", "device", ",,,", strBuffer, 254)
    strDefaultPrinterInfo = Left(strBuffer, InStr(strBuffer, Chr(0)) - 1)
    tblDefaultPrinterInfo = Split(strDefaultPrinterInfo, ",")
    For Each objPrinter In Printers
        If objPrinter.DeviceName = tblDefaultPrinterInfo(0) Then
            ' Default printer found !
            Exit For
        End If
    Next

    ' If not found, return nothing
    If objPrinter.DeviceName <> tblDefaultPrinterInfo(0) Then
        Set objPrinter = Nothing
    End If

    Set GetDefaultPrinter = objPrinter

End Function 

幸亏 http://www.andreavb.com/tip070005.html

您可以在表单上添加一个计时器对象,并使用10秒触发器检查打印机是否已更改。