Office中国论坛/Access中国论坛

标题: 调用打印对话框，按“取消”时需要调试？ [打印本页]

作者: niwj 时间: 2008-12-11 17:23
标题: 调用打印对话框，按“取消”时需要调试？
Function P()
DoCmd.RunCommand acCmdPrint
End Function

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

作者: Henry D. Sy 时间: 2008-12-11 17:59
增加错误处理来处理

作者: tmtony 时间: 2008-12-11 19:34
判断一下取消后文件名如果是空,则进行其它处理!

作者: niwj 时间: 2008-12-13 10:36
[:31] 有没有例子看看啊？不知道怎么弄！

作者: Henry D. Sy 时间: 2008-12-13 11:18
TRY

Function P()
On Error GoTo P_Error
DoCmd.RunCommand acCmdPrint
On Error GoTo 0
Exit Function
P_Error:
If Err.Number <> 2501 Then
MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
End If
End Function

复制代码

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

作者: niwj 时间: 2008-12-13 14:27
[:24] 很好，搞定了，谢谢6D！[:17]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)