Private Sub Form_Load()
CommonDialog1.ShowPrinter
If CommonDialog1.CancelError = False Then
MsgBox "a"
Else
MsgBox "b"
End If
End Sub试一下就知道了
CommonDialog1.ShowPrinter
If CommonDialog1.CancelError = False Then
MsgBox "a"
Else
MsgBox "b"
End If
End Sub试一下就知道了
On Error GoTo err
CommonDialog1.ShowOpen
err:
If err.Number = 32755 Then
MsgBox "选择取消"
Else
MsgBox err.Number & err.Description
End If
End Sub