方法一:设置默认打印机
Dim obj As object = CreateObject("WScript.Network")obj.SetDefaultPrinter("打印机名")
方法二:直接用vba的printout打印
http://www.foxtable.com/webhelp/scr/2121.htm