打印问题，搞不定。50分

Question

Private Sub Command1_Click()
CommonDialog1.Filter = "ACCESS 文件(*.mdb)|*.mdb"
CommonDialog1.CancelError = True
On Error GoTo aa
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
aa:
End Sub

Answer 1

在第3句之前设置
CommonDialog1.CancelError = True
这个属性决定在取消的时候是否产生错误。他的错误代码是32755 (cdlCancel)。

Answer 2

可以先对commondialog的文件名进行判断，这样也比较方便