主题：打印机更换设置求租

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

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

 

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

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

 

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

 

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

 

 

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

 

Dim Proc As New Process
Proc.File = str

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

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

 

或者看看

 

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

 

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