使用者5405767187952522019-09-16 01:42:26

On Error Resume NextApplication。AutoFormatAsYouTypeReplaceHyperlinks = False ‘禁止郵箱地址自動變成超連結ThisWorkbook。VBProject。References。AddFromFile （Application。Path & “\MSOUTL。OLB”） ’引用outlook物件ActiveWorkbook。PrintOut Copies：=0， ActivePrinter：=“Microsoft XPS Document Writer”， printtofile：=True， Collate：=True， prtofilename：=“C：\ABC。XPS” ‘設定預設印表機為XPS

上面最後一行就是設定印表機，ActivePrinter設定成你自己需要的印表機即可，這行命令執行會出錯，因為Copies：=0表示列印份數為0，但出錯前會設定好印表機，所以我用On Error Resume Next遮蔽了錯誤。

Application。ActivePrinter就能得到當前活動印表機名稱。

我也都是在excelhome論壇上搜索的，你自己去看，找到最簡單最適合你的方法即可。