问个打印机的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 问个打印机的问题

共有1864人关注过本帖树形打印复制链接主题：问个打印机的问题

晕了快扶我

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1207 积分：7224 威望：0 精华：0 注册：2013/3/4 18:02:00

问个打印机的问题 发帖心情

Post By：2017/9/12 22:50:00 [只看该作者]

打印机因为缺纸,或者断电等异常原因导致没有打印成功的,FOXTABLE有没有办法获取这种状态?

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/9/12 23:17:00 [只看该作者]

试试

http://www.cnblogs.com/rosesmall/p/3140417.html

http://www.cnblogs.com/xiaofengfeng/archive/2012/08/13/2636361.html

晕了快扶我

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1207 积分：7224 威望：0 精华：0 注册：2013/3/4 18:02:00

Post By：2017/9/13 20:33:00 [只看该作者]

以下是引用有点蓝在2017/9/12 23:17:00的发言：
试试

http://www.cnblogs.com/rosesmall/p/3140417.html

http://www.cnblogs.com/xiaofengfeng/archive/2012/08/13/2636361.html

WinIo.dll这个库文件哪里有呢?

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/13 22:29:00 [只看该作者]

记得引用 System.Management.dll

1、状态值

其他状态= 1,
未知,
空闲,
正在打印,
预热,
停止打印,
打印中,
离线

2、代码

Dim pname As String = DefaultPrinter

Dim printer = New System.Management.ManagementObject("win32_printer.DeviceId='" & pname & "'")
printer.Get()
Dim result = val(printer.Properties("PrinterStatus").Value)
msgbox(result)

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/13 22:31:00 [只看该作者]

以下是引用晕了快扶我在2017/9/13 20:33:00的发言：

WinIo.dll这个库文件哪里有呢?

https://www.baidu.com/baidu?wd=WinIo.dll

晕了快扶我

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1207 积分：7224 威望：0 精华：0 注册：2013/3/4 18:02:00

Post By：2017/9/13 23:10:00 [只看该作者]

以下是引用有点甜在2017/9/13 22:29:00的发言：

记得引用 System.Management.dll

1、状态值

其他状态= 1,
未知,
空闲,
正在打印,
预热,
停止打印,
打印中,
离线

2、代码

Dim pname As String = DefaultPrinter

Dim printer = New System.Management.ManagementObject("win32_printer.DeviceId='" & pname & "'")
printer.Get()
Dim result = val(printer.Properties("PrinterStatus").Value)
msgbox(result)

我有点懵逼,那个winio的库文件不需要引用了吗?