【ExcelVBA】ExcelシートをPDF出力する方法(ExportAsFixedFormat)

9月 19, 2022

ExcelVBAでExcelシートをPDFに出力したい人向けに書いています。

本記事の内容

・ExcelVBAでExcelシートをPDF出力する方法

ExcelVBA(マクロ)でExcelシートのデータをPDF出力したいと思ったことはありませんか?
請求書等の書類作成を自動作成してPDF出力したいと思っていませんか?
ExcelVBAでExcelシートをPDF出力する方法を紹介します。

 

ExcelVBAでExcelシートをPDF出力する方法

以下がExcelVBAでExcelシートのデータをPDF出力するプログラムです。

  1. '*****************************************
  2. '* PDFファイル出力
  3. '*****************************************
  4. Sub PDF_FILE_OUT()
  5.    
  6.     Dim fileName As String '保存先フォルダパス&ファイル名
  7.     
  8.     Dim OUT_FOLDER_PATH As String 'PDF出力フォルダパス
  9.     Dim OUT_FILE_NM As String 'PDF出力ファイル名
  10.     Dim OUT_SHEET As String 'PDF出力シート
  11.     
  12.     'PDF出力フォルダパス
  13.     OUT_FOLDER_PATH = ThisWorkbook.Path & "\PDF出力"
  14.     'PDF出力ファイル名
  15.     OUT_FILE_NM = "PDF出力.pdf"
  16.     'PDF出力シート
  17.     OUT_SHEET = "Sheet1"
  18.     
  19.     'PDF出力フォルダがなければ作成する
  20.     If Dir(OUT_FOLDER_PATH, vbDirectory) = "" Then
  21.         MkDir OUT_FOLDER_PATH
  22.     End If
  23.     
  24.     'PDF出力ファイルパス
  25.     fileName = OUT_FOLDER_PATH & "\" & OUT_FILE_NM
  26.    
  27.     '出力ページ設定
  28.     With ThisWorkbook.Sheets(OUT_SHEET).PageSetup
  29.         
  30.         '印刷時の拡大・縮小率を指定する
  31.         .Zoom = False
  32.         '横方向を指定(1)ページ数に収める
  33.         .FitToPagesWide = 1
  34.         '縦方向を指定(1)ページ数に収める
  35.         .FitToPagesTall = 1
  36.         '水平方向に余白を調整して中央寄せ
  37.         .CenterHorizontally = True
  38.         '垂直方向に余白を調整して中央寄せ
  39.         .CenterVertically = True
  40.         
  41.     End With
  42.    
  43.    'PDF出力
  44.     ThisWorkbook.Sheets(OUT_SHEET).ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName
  45.    
  46. End Sub


13行目:PDF出力フォルダを設定
15行目:PDF出力ファイル名を設定
17行目:PDF出力するシートを設定

 

まとめ

ExcelVBAでExcelシートをPDF出力する方法を紹介しました。
請求書等の書類作成で役に立つはずです。
もしPDFの書類を作成する作業のある方は是非試してみてください。
最後までご覧いただき、ありがとうございました。

 

【ExcelVBA】Excelシートデータを別Excelファイルに出力する方法
【ExcelVBA】ExcelシートデータをCSVファイルに出力する方法
【ExcelVBA】別Excelファイルのシートデータ取り込み方法(複数ファイル・シート対応)
も紹介していますので、もしよろしければこちらも御覧ください。

 

 

スポンサーリンク