调用打印对话框，按“取消”时需要调试？

niwj

Function P()
DoCmd.RunCommand acCmdPrint
End Function

我建了一个函数，内容如上，调用时可以打开打印对话框，如果点击 “确定” 一切正常，但是我点击 “取消”时，会出现这个对话框

这是怎么回事？

Henry D. Sy

增加错误处理来处理

tmtony

判断一下取消后 文件名如果是空,则 进行其它处理!

niwj

[:31] 有没有例子看看啊？不知道怎么弄！

Henry D. Sy

TRY

1. Function P()
   
2.     On Error GoTo P_Error
   
3.     DoCmd.RunCommand acCmdPrint
   
4.     On Error GoTo 0
   
5.     Exit Function
   
6. P_Error:
   
7.     If Err.Number <> 2501 Then
   
8.         MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
   
9.     End If
   
10. End Function

复制代码

[ 本帖最后由 Henry D. Sy 于 2008-12-13 11:19 编辑 ]

niwj

[:24] 很好，搞定了，谢谢6D！[:17]