vba - VBA PDFとして印刷

Question

ファイル名を要求したり、Adobe Reader を表示したりせずに、Excel 印刷ファイルを PDF として自動的に保存するにはどうすればよいですか。

これは、添付ファイル付きの自動メール用です。

Outlook VBAを使用してレコードを取得し、それを整列させ、Excel、Crystal rep、PDFとして保存して添付するため、必ずしもExcelは必要ありません。

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