Foxtable(狐表)用户栏目专家坐堂 → [求助]如何判断打印机服务是否关闭?如已关闭,如何打开?


  共有2657人关注过本帖树形打印复制链接

主题:[求助]如何判断打印机服务是否关闭?如已关闭,如何打开?

帅哥哟,离线,有人找我吗?
yinyb36
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:953 积分:7252 威望:0 精华:0 注册:2011/9/6 13:36:00
[求助]如何判断打印机服务是否关闭?如已关闭,如何打开?  发帖心情 Post By:2015/5/16 11:11:00 [只看该作者]

如题

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/16 11:12:00 [只看该作者]

直接用Try Catch  圈住代码 方便http://www.foxtable.com/help/topics/2070.htm

 回到顶部
帅哥哟,离线,有人找我吗?
yinyb36
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:953 积分:7252 威望:0 精华:0 注册:2011/9/6 13:36:00
  发帖心情 Post By:2015/5/16 11:17:00 [只看该作者]

如果打印机服务已关闭,没有错误,但无法打开打印

 回到顶部
帅哥哟,离线,有人找我吗?
yinyb36
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:953 积分:7252 威望:0 精华:0 注册:2011/9/6 13:36:00
  发帖心情 Post By:2015/5/16 11:17:00 [只看该作者]

Try无效

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/16 11:23:00 [只看该作者]

If System.Drawing.Printing.PrinterSettings.InstalledPrinters.Count <= 0 Then
    MessageBox.Show( "没找到打印机 ")
Else
    Dim ps As New System.Drawing.Printing.PrinterSettings
    Dim printName As String
    For Each printName In System.Drawing.Printing.PrinterSettings.InstalledPrinters
        ps.PrinterName = printName
        MessageBox.show("默认打印机:" & ps.IsDefaultPrinter & "; 是否可用:" & ps.IsValid)
    Next
End If

希望能帮到你

 回到顶部
帅哥哟,离线,有人找我吗?
yinyb36
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:953 积分:7252 威望:0 精华:0 注册:2011/9/6 13:36:00
  发帖心情 Post By:2015/5/16 13:01:00 [只看该作者]

打印机服务已关闭时,出错

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20150516125932.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/16 13:47:00 [只看该作者]

这个错误很好解决.在BeforeShowErrorMessage事件

If e.Message2.StartsWith("RPC") then
  messagebox.show("RPC服务未开启")
  e.cancel=true
end if

 回到顶部