以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印机更换设置求租  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78431)
--  作者：ljh29206
--  发布时间：2015/12/9 9:43:00
--  打印机更换设置求租

Dim obj As object = CreateObject("WScript.Network")
obj.SetDefaultPrinter("EPSON LQ-1600K IIIH ESC/P2")

以上代码不能更换默认的打印机

 

For i As Integer = 1 To 2
Dim dr As Row =CurrentTable.Rows(7176 + i)
Dim STR As String = DR("受领书")
Dim Proc As New Process
Proc.File = str

Proc.Verb = "Print" \'指定动作
Proc.Start()
Next

 

求助，如何 再 print 前 进行 打印机更换？

 

 文档的格式为 PDF

[此贴子已经被作者于2015/12/9 9:44:44编辑过]
--  作者：大红袍
--  发布时间：2015/12/9 9:47:00
--  

这段代码，一定能更换默认打印机，前提是你有管理员权限而且打印机名不能写错。

 

Dim obj As object = CreateObject("WScript.Network")
obj.SetDefaultPrinter("EPSON LQ-1600K IIIH ESC/P2")
--  作者：ljh29206
--  发布时间：2015/12/9 15:09:00
--  

老师 我看了 打印机是可以进行 默认更换的  但

 

adobe reader X  这个软件， 我发现每次 打开  它好像有记忆上次 打印的页 的打印机设置？

 

就算设置了 更改默认打印机也没效果！

 

 

这个还有什么方法可以做到，运行以下代码前更换打印机？

 

Dim Proc As New Process
Proc.File = str

Proc.Verb = "Print" \'指定动作
Proc.Start()
Next
--  作者：大红袍
--  发布时间：2015/12/9 15:13:00
--  

没有办法。去看你以前发的pdf打印的帖子。

 

或者看看

 

http://blog.csdn.net/shi0090/article/details/7262199

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77213&replyID=533433&skin=1