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
不幸的是,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
有我系統默認打印機完成。