Foxtable(狐表)用户栏目专家坐堂 → 怎么判断指定的打印机是否存在,请教老师


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

主题:怎么判断指定的打印机是否存在,请教老师

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/18 12:47:00 [显示全部帖子]


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/19 10:08:00 [显示全部帖子]

呃……应该把参数跟所有的打印机名比较吧?

Dim ptn As String = Tables("打印参数")(0)("打印机")


dim canNotFind as boolean = True

For Each p As String In InstalledPrinters

     If ptn = s Then
         canNotFind = false

     End If

End IfNext


if canNotFind then

    MessageBox.Show("未找到打印机!","温馨提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)

end if


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/19 12:10:00 [显示全部帖子]

 或者试试这样。

Dim ptn As String = Tables("打印参数")(0)("打印机")


dim canNotFind as boolean = True

For Each p As String In InstalledPrinters

     If ptn like "*" & p & "*" Then
         canNotFind = false

     End If

End IfNext


if canNotFind then

    MessageBox.Show("未找到打印机!","温馨提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)

end if

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/21 12:18:00 [显示全部帖子]

 在网上搜索到一段简单的代码。检测是否可用。但是,如果要检测是否连接或者打印的话,就需要去测试一次打印才能知道的。

Dim ps As New Printing.PrinterSettings
Dim printName As String
For Each printName In printing.PrinterSettings.InstalledPrinters
    ps.PrinterName = printName
    output.show( ps.IsDefaultPrinter & ps.IsValid)
Next

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/21 18:05:00 [显示全部帖子]

以下是引用mamuaiqing在2013-1-21 17:40:00的发言:

感谢林老师多次帮助,这行代码在命令窗口执行后感觉挺怪的,什么情况再汇报给林老师,希望林老师能再次帮助下

 

FalseTrue
TrueTrue
FalseTrue
FalseTrue
FalseTrue


楼主,我查了一下,打印机是否被连接,电脑是无法检测的。你这个问题无解了。
[此贴子已经被作者于2013-1-21 18:07:06编辑过]

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/22 11:15:00 [显示全部帖子]

以下是引用dreamyuan在2013-1-21 21:44:00的发言:

应该有吧,打印机有状态:脱机或准备就绪呀,呵呵


这些状态都是无效的,唯有检测一次打印机工作以后,才可以确定是否有连接的。这样就比较麻烦了。

 回到顶部