2022.12.29 2023.03.12

【コードコピペOK！】ExcelVBAでPDFを印刷する方法

しんたろ。

「PDFの印刷がめんどくさい」
「ExcelVBAで簡単に印刷できるコードを知りたい」

事務作業や経理作業をしていると、PDFファイルを印刷しなければならないことがよくあります。月末に大量の請求書を印刷するケースや、社員の分も印刷するケースはよくあります。請求書の枚数が多い場合、手作業で行うのは非常に手間がかかります。

この記事では、VBAでPDFファイルを印刷する方法を解説します

ただ印刷する方法だけでなく、部分一致でファイルを一括印刷する方法や、フォルダ内のファイルを一括印刷する方法など、実践で使えるサンプルもありますので、ぜひ最後までご覧ください!

この記事の目次

LINEでExcelを気軽に学べる
はじめに
VBAを使用してPDFファイルを印刷するメリット
VBAを使用してPDFファイルを印刷する方法
まとめ

期間限定でChatGPT✖️Googleスプレットシートのコンテンツ配布中！

LINEでExcelを気軽に学べる

はじめに

Microsoft Visual Basic for Applications (VBA)は、Microsoft Officeに含まれる強力なプログラミング言語です。

多くの用途があり、プログラムのカスタマイズやタスクの自動化において、非常に高い柔軟性を発揮します。

VBAを使ったPDFファイルの印刷は、特に大量のデータを扱う場合に、ありふれた作業を自動化するためにこの言語をどのように使うことができるかを示す好例です。

>>ExcelVBAの詳しい解説をみる

VBAを使用してPDFファイルを印刷するメリット

PDFファイルを印刷するためにVBAを使用すると、次のような多くの利点があります。

メリット

大量の文書を印刷するプロセスを合理化する。
VBAを使用すると、反復作業を簡単に自動化し、時間を節約することができる。
特定のPDFファイルに対する印刷設定や設定を自動化する。
VBAを使用すると、印刷設定をカスタマイズできるので、文書を印刷する必要があるたびに調整する必要がない。
文書固有の設定を自動化する。
たとえば、請求書ごとに異なるページ数を印刷する必要がある場合、VBAを使用してこのタスクを自動化することができる。

VBAを使用してPDFファイルを印刷する方法

VBAを使ったPDFファイルの印刷は、かなり簡単です。

Excel VBAを使用してPDFを印刷する方法は、次のように複数あるので詳しく解説していきます。

Adobe Acrobatを使用する方法

Adobe Acrobatがインストールされていることを確認

Adobe Acrobatのオブジェクトライブラリを参照設定する

実際のコード

Dim AcroApp As Acrobat.CAcroApp
Dim AcroAVDoc As Acrobat.CAcroAVDoc

Set AcroApp = CreateObject("AcroExch.App")
Set AcroAVDoc = CreateObject("AcroExch.AVDoc")

' PDFを開く
AcroAVDoc.Open "C:\Sample.pdf", "Acrobat"

' 印刷する
AcroAVDoc.PrintOut False, False, 1, False, "", False

' PDFを閉じる
AcroAVDoc.Close True

Set AcroAVDoc = Nothing
Set AcroApp = Nothing

Acrobat DCのAPIを使用する方法

Acrobat DCがインストールされていることを確認

Acrobat DCのAPIを参照設定する

実際のコード

Dim app As Acrobat.AcroApp
Dim doc As Acrobat.AcroAVDoc

Set app = CreateObject("AcroExch.App")
Set doc = CreateObject("AcroExch.AVDoc")

' PDFを開く
doc.Open "C:\Sample.pdf", "Acrobat"

' 印刷する
app.PrintDoc doc.GetPDDoc, False, False, True

' PDFを閉じる
doc.Close True

Set doc = Nothing
Set app = Nothing

システムプリンタを使用する方法

実際のコード

Sub PrintPDF()

    ' プリンタを設定する
    With ActiveSheet.PageSetup
        .PrintArea = ""
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .Zoom = False
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .Draft = False

        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""

        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""

    End With

    ' PDFを印刷する
    ActiveSheet.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", 
　　 PrintToFile:=False
End Sub

上記のコードでは、ActiveSheet.PrintOut メソッドを使用して、システムプリンタとして「Adobe PDF」を指定してPDFを印刷しています。