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

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

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

晕了快扶我

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

加好友

发短信

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

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

Post By：2017/9/12 22:50:00 [显示全部帖子]

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

晕了快扶我

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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这个库文件哪里有呢?

晕了快扶我

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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的库文件不需要引用了吗?

晕了快扶我

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

加好友

发短信

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

Post By：2017/9/13 23:29:00 [显示全部帖子]

是否打印成功这个只能用正在打印来判断了....

下一主题 >> << 上一主题

主题：问个打印机的问题