2017-12-27 296 views
0

Control Panel> Printer and Faxes我的默認打印機,是HP LaserJet P2035 on Ne02:沒有的ActivePrinter適用於嵌入式文件

我有連接到我的系統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 

不幸的是,PrintOutHP LaserJet P2035 on Ne02:打印機完成。因此,PrintOut不接受ActivePrinter參數。

點是PrintOut不斷變化ActivePrinterWorksheet打印時使用正確行事。 (如下)

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

但問題是改變ActivePrinterobjDoc.PrintOut(第一上面的代碼),是ActivePrinter是不是有效,PrintOut有我系統默認打印機完成。

回答

相關問題