Question

如何在不要求文件名或显示adobe reader的情况下自动将PDF保存为Excel打印文件。

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

我不需要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

VBA打印为PDF

1 个答案: