红色设置成你打印机名
Dim obj As object = CreateObject("WScript.Network")obj.SetDefaultPrinter("EPSON LQ-1600K IIIH ESC/P2")
http://www.foxtable.com/webhelp/scr/1601.htm