没有的ActivePrinter适用于嵌入式文件

Question

在Control Panel> Printer and Faxes我的默认打印机，是HP LaserJet P2035 on Ne02:

我有连接到我的系统2台活跃打印机。

我想PrintOut与我的第二打印机，其是：HP LaserJet Pro MFP M127-M128 PCLmS on Ne01:

有这Sheet1

我PrintOut嵌入（作为图标）以上嵌入文档MS-Word文档。

我的代码是：

Sub PrintJob() 

    Dim ObjWord As Word.Application 
    Dim objDoc As Word.Document 

    'Initialization 
    ActiveSheet.OLEObjects("WDoc").Activate 
    Set ObjWord = GetObject(, "Word.Application") 
    ObjWord.Visible = False 
    Set objDoc = ObjWord.activedocument 
    Application.ActivePrinter = "HP LaserJet Pro MFP M127-M128 PCLmS on Ne01:" 

    objDoc.PrintOut 

End Sub 

不幸的是，PrintOut与HP LaserJet P2035 on Ne02:打印机完成。因此，PrintOut不接受ActivePrinter参数。

点是PrintOut不断变化ActivePrinter是Worksheet打印时使用正确行事。 （如下）

Application.ActivePrinter="HP LaserJet Pro MFP M127-M128 PCLmS on Ne01:" 
ThisWorkbook.ActiveSheet.Printout 

但问题是改变ActivePrinter和objDoc.PrintOut（第一上面的代码），是ActivePrinter是不是有效，PrintOut有我系统默认打印机完成。