以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  指定临时打印机  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110488)
--  作者：lxhmax
--  发布时间：2017/12/4 14:52:00
--  指定临时打印机

Dim doc As New PrintDoc
Dim rt As New prt.RenderText
rt.Text = "Hello Foxtable"
doc.Body.Children.Add(rt)
Doc.PrinterName = "HP LaserJet 6L"
doc.Print()



为什么用这个代码来指定打印机之后，默认打印机就会改变，这个是修改默认打印机吗？

请问下指定临时用的打印机应该怎么设置？ 就是不修改默认打印机 
--  作者：有点甜
--  发布时间：2017/12/4 15:16:00
--  

测试了一下，并不会修改默认打印机的。

 

如果你要修改默认打印机，可以这样写代码

 

Dim obj As object = CreateObject("WScript.Network")
obj.SetDefaultPrinter("打印机名")