以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  问个打印机的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106629)
--  作者：晕了快扶我
--  发布时间：2017/9/12 22:50:00
--  问个打印机的问题
 打印机因为缺纸,或者断电等异常原因导致没有打印成功的,FOXTABLE有没有办法获取这种状态?
--  作者：有点蓝
--  发布时间：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
--  作者：晕了快扶我
--  发布时间：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这个库文件哪里有呢?
--  作者：有点甜
--  发布时间：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)

 

图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2017/9/13 22:31:00
--  
以下是引用晕了快扶我在2017/9/13 20:33:00的发言：

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

 

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

 
--  作者：晕了快扶我
--  发布时间：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的库文件不需要引用了吗?
--  作者：有点甜
--  发布时间：2017/9/13 23:12:00
--  
4楼只是另一种方法。
--  作者：晕了快扶我
--  发布时间：2017/9/13 23:29:00
--  
 是否打印成功这个只能用正在打印来判断了....
--  作者：有点甜
--  发布时间：2017/9/14 9:05:00
--  
以下是引用晕了快扶我在2017/9/13 23:29:00的发言：
 是否打印成功这个只能用正在打印来判断了....

 

没测试过。你根据上面的方法，一个个地测试一次。