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

...

プログラミング

Visual Basic for Applications(VBA)は、アプリケーションに動的タスクを実行させるためにMicrosoft Officeで使用されるプログラミング言語であり、その1つがPDFファイルを開いて印刷することです。 このタスクを実行するには、MicrosoftOfficeプログラムのすべてのバージョンにインストールされているVBA言語とVBAエディターの基本を理解している必要があります。 このコードは、すべてのMicrosoftOfficeアプリケーションに使用できます。

ステップ1

コードを入力するMicrosoftOfficeアプリケーションでVBAエディターを開きます。 Microsoft Office 2003以前のアプリケーションで、[ファイル]> [ツール]> [マクロ]> [Visual BasicEditor]をクリックします。 MicrosoftOfficeの2007年版で[開発者]タブ> [VisualBasic]をクリックします。

今日のビデオ

ステップ2

コードを挿入するコードウィンドウの任意の場所をクリックします。

ステップ3

コードを追加してPDFファイルを開きます。 コードは次のようになります。

Sub OpenPDF()Dim strPDFFileName As String '編集して、開きたいPDFファイルに完全なファイル名を追加しますstrPDFFileName = "C:\ examplefile.pdf"'次へ 関数は、ファイルがまだ開いていないかどうかを確認します。ファイルロックされていない場合(strPDFFileName)Then'Falseが返された場合は、PDFファイルのドキュメントを開き続けます。 strPDFFileNameを開きます)End If End Sub

このコードをコピーしてコードウィンドウに貼り付けます。 変更する必要があるコードの唯一の部分は、開きたいPDFファイルへのフルパスです。 したがって、「C:\ examplefile.pdf」を独自のファイルパスと名前に置き換えます。

ステップ4

PDFファイルを印刷するコードを追加します。 印刷コードは次のとおりです。

Sub PrintPDF(strPDFFileName as string)Dim sAdobeReader as String 'これは、コンピューター上のAdobeReaderまたはAcrobatアプリケーションへのフルパスです。 sAdobeReader = "C:\ Program Files \ Adob​​e \ Acrobat 6.0 \ Reader \ AcroRd32.exe" RetVal = Shell(sAdobeReader& "/ P"&Chr(34)&sStrPDFFileName&Chr(34)、0) サブ終了

変更する必要があるこのコードの唯一の部分は、Adobe Reader、Acrobat、またはコンピューター上のPDFリーダーへのフルパスです。

ステップ5

トリガーを使用して関数を呼び出します。 これは、コードがいつ実行するかを知る方法です。 必要なトリガーを使用します。 フォーム、ボタン、チェックボックス、またはその他のフォームアイテム。 たとえば、ボタンの「クリック」宣言を使用します。 ボタンをクリックすると、PDFドキュメントが開いて印刷されます。 コードは次のようになります。

Sub CommandButton_Click() '最初にopen関数を呼び出して、印刷前にPDFを開くことができるようにします。CallOpenPDF'次に、印刷関数を呼び出して、PDFを印刷できるようにします。CallPrintPDFEnd Sub

上記のコードの中央部分(SubとEnd Subの間)をフォームアイテムにコピーして、使用することを決定します。

必要なもの

  • MicrosoftOfficeアプリケーション

  • PDFリーダーアプリケーション

ヒント

2007バージョンを使用していて、[開発者]タブが表示されない場合は、[Office]ボタンをクリックしてから、メニューの下部にある[オプション]ボタンをクリックします。 「リボンに開発者タブを表示」をクリックし、「OK」をクリックします。