Private Sub cmdOpen_Click()

    m_PrtN = "本地印机"
    
    'Select printer
    '选择打印机
    For Each prnPrinter In Printers
        If prnPrinter.DeviceName = m_PrtN Then
            Set Printer = prnPrinter
            Exit For
        End If
    Next

    'Open the printer and status monitor
    '打开打印机状态监测
    m_hApi = BiOpenMonPrinter(TYPE_PRINTER, m_PrtN)
    Label1.Caption = m_hApi
    'If error, then show error and exit sub
    '如果出错，就退出
    If m_hApi < 0 Then
        ErrMsg (m_hApi)
        Exit Sub
    End If

    cmdGetStatus.Enabled = True
    cmdPrint.Enabled = True
    cmdOpen.Enabled = False
    
End Sub