主题：指定打印机

1、可以设置默认打印机

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

2、只有printout可以设置打印机

• 
  PrintOut
  
  直接打印。如，Ws.PrintOut
  
  该方法还可通过设置有关参数来控制打印，如下面的代码就是打印第1-10页，打印份数为3，打印前先预览，指定的打印机为"pdfFactory Pro"：
  
  Ws.PrintOut(From:=1,To:=10,Copies:=3,Preview:=True,ActivePrinter:="pdfFactory Pro")