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