以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打印问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78651)

--  作者:jialihaha
--  发布时间:2015/12/14 13:48:00
--  打印问题
专业报表打印,采取doc.Print() ,没有连接打印机的情况下会卡死,提示框关不掉,有什么办法解决?
[此贴子已经被作者于2015/12/14 13:48:24编辑过]

--  作者:大红袍
--  发布时间:2015/12/14 14:10:00
--  

测试了一下,不会卡死的。

 

Alt+F4 可以关闭提示窗口


--  作者:jialihaha
--  发布时间:2015/12/14 14:13:00
--  
能不能没打印机提示下,不用那个打印进程的框框一直在那
--  作者:大红袍
--  发布时间:2015/12/14 14:16:00
--  

或者,你可以把提示关闭的,做一个计划管理就行

 

http://www.foxtable.com/help/topics/2713.htm

 


--  作者:jialihaha
--  发布时间:2015/12/14 14:19:00
--  
能不能判断有没有连接打印机的代码?
--  作者:大红袍
--  发布时间:2015/12/14 15:23: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)