VBA を使用して PDF ファイルを開いて印刷する方法
Visual Basic for Applications (VBA) は、アプリケーションが動的なタスクを実行するために Microsoft Office で使用されるプログラミング言語であり、その 1 つが PDF ファイルを開いて印刷することです。このタスクを実行するには、VBA 言語と、Microsoft Office プログラムのすべてのバージョンにインストールされている VBA エディターの基本的な知識が必要です。このコードは、どの Microsoft Office アプリケーションにも使用できます。
ステップ 1
コードを入力する Microsoft Office アプリケーションで VBA エディターを開きます。 Microsoft Office 2003 以前のアプリケーションで、[ファイル]> [ツール]> [マクロ]> [Visual Basic Editor] をクリックします。 Microsoft Office 2007 エディションの [開発] タブ> [Visual Basic] をクリックします。
ステップ 2
コード ウィンドウ内のコードを挿入する場所をクリックします。
ステップ 3
PDF ファイルを開くコードを追加します。コードは次のようになります:
Sub OpenPDF() Dim strPDFFileName As String '編集して、開きたい PDF ファイルに完全なファイル名を追加します strPDFFileName ="C:\examplefile.pdf" 'この次の関数は、ファイルがまだ開いていないかどうかを確認します If Not FileLocked(strPDFFileName) Then 'False が返された場合は、引き続き PDF ファイルを開きます Documents.Open strPDFFileName) End If End Sub
このコードをコピーしてコード ウィンドウに貼り付けます。変更する必要があるコードの部分は、開きたい PDF ファイルへのフル パスだけです。そのため、「C:\examplefile.pdf」を独自のファイル パスと名前に置き換えてください。
ステップ 4
PDF ファイルを印刷するためのコードを追加します。印刷コードは次のとおりです:
Sub PrintPDF (strPDFFileName as string) Dim sAdobeReader as String 'これは、コンピューター上の Adobe Reader または Acrobat アプリケーションへのフル パスです sAdobeReader ="C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal =Shell (sAdobeReader &"/P" &Chr(34) &sStrPDFFileName &Chr(34), 0) End Sub
このコードで変更が必要な部分は、コンピューター上の Adobe Reader、Acrobat、または任意の PDF リーダーへのフル パスのみです。
ステップ 5
トリガーを使用して関数を呼び出します。これは、コードがいつ実行するかを知る方法です。必要なトリガーを使用してください。フォーム、ボタン、チェックボックス、またはその他のフォーム項目。たとえば、ボタンの「Click」宣言を使用します。ボタンをクリックすると、PDF ドキュメントが開き、印刷されます。コードは次のようになります:
Sub CommandButton_Click() '最初に open 関数を呼び出して、印刷前に PDF を開くことができるようにします Call OpenPDF 'ここで、PDF を印刷できるように印刷関数を呼び出します Call PrintPDF End Sub
上記のコードの中間部分 (Sub と End Sub の間) を、使用するフォーム アイテムとトリガーにコピーするだけです。
ヒント
2007 バージョンを使用していて [開発者] タブが表示されない場合は、[Office] ボタンをクリックし、メニューの下部にある [オプション] ボタンをクリックします。 [リボンに [開発者] タブを表示する] をクリックし、[OK] をクリックします。