vba - VBA 打印为 PDF

Question

如何在不询问文件名或显示 adobe 阅读器的情况下自动将 Excel 打印文件另存为 PDF。

这是用于带有附件的自动电子邮件。

我不需要 Excel，因为我将使用 Outlook VBA 检索记录，然后对齐它，excel，水晶代表，将其保存为 PDF 并附加。

Answer 1

我不知道您的文档是什么样子，所以它可能不会安静地剪切它，但您可以将文档的每个工作表保存为 pdf 文件，如下所示：

Sub Mac()
Dim wsh As Worksheet, vWshs, vWshName

vWshs = Array("Sheet1", "Sheet2", "Sheet3")
With ActiveWorkbook
    For Each vWshName In vWshs
        .Worksheets(vWshName).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Tmp\" & vWshName, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next vWshName
End With
End Sub