使用VBA告诉Outlook打印到特定的打印机

Question

有没有办法在Outlook中编写一个强制打印输出到特定打印机的VBA宏（即使它不一定是默认打印机），类似于Word

Application.ActivePrinter = "Printer Name"

选项？我想创建一个按钮，打印当前的电子邮件和附件到特定的打印机（在这种情况下是PDF打印机，但我猜它应该是相同的原则，不管），但似乎无法找到方法强制在代码中使用哪台打印机。

感谢。

Answer 1

不，Outlook仅公开MailItem.PrintOut方法。

您可以使用MailItem.SaveAs以DOC或RTF格式保存邮件，在Word中将其打开，然后使用Word对象模型进行打印。

Answer 2

你可以使用这个：

    Dim WshNetwork As Object
    Set WshNetwork = CreateObject("WScript.Network")
    WshNetwork.setDefaultPrinter "Microsoft Print to PDF"

用您的打印机名称填充字符串。