【EXCEL-VBA】PDFファイルを開いて印刷したい

Question

お世話になります。
以前、以下のリンク先の質問でA1セルに入力されたファイル名(フルパスの)を取得し
PDFを開くマクロを頂きました。
※ご解答頂いたWindFallerさん、maiko0333さん、ありがとうございました。
このマクロはすごくシンプルで使いやすいので今でも仕事で使っております。

で、、、今回、これをカスタマイズして「印刷もしたい」と思ったのですが、
印刷するためのコードの追加方法がわかりませんでした。

このコードに固執してないので、別の方法でもかまいません。
ですが、ネットで調べたところ複雑なコードばかりでした。
リンク先のようなシンプルなコードでPDFファイルを開いて
印刷することって出来ないのでしょうか？

すいませんが詳しい方、説明の上手な方、
直接、コードで説明できる方、マクロでPDFファイルを開いて印刷するための
コードを教えて下さい。よろしくお願いします。


リンク先：PDFファイルを開くマクロ
「PowerShellを使って関連付けられたアプリケーションでファイルを開く時のエラー」
https://oshiete.goo.ne.jp/qa/9338065.html

追記
1)開いたPDFファイルを閉じる必要はありません。
開けっ放しでOKです

2)前述していますし、リンク先を見て頂ければわかると思いますが、
A1セルに入力するファイル名はフルパスです。
※詳細はリンク先の説明、画像をご覧ください

3)PDFファイルはどれも1枚だけです。
※複数ページのPDFはありません。

以上です。すいませんがよろしくお願いします。

bonaron · Accepted Answer

こちらを参考にして
https://www.moug.net/tech/acvba/0130005.html
こんな感じで動きました。(Windows7 64ビット , Excel2010 32ビット)

Option Explicit

Declare Function ShellExecute Lib "SHELL32" Alias "ShellExecuteA" (ByVal hwnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&) As Long

Public Sub PrintPDF()
　Dim strPath As String
    
　strPath = Range("A1").Value
　' 現在の位置とサイズで表示 5(SW_SHOW)
　Call ShellExecute(Application.hwnd, "open", strPath, vbNullString, vbNullString, 5)
　' 印刷
　Call ShellExecute(Application.hwnd, "print", strPath, vbNullString, vbNullString, 5)
End Sub

WindFaller · Answer

#2で書いた内容は、いろんなものを省いてしまった結果で、Excel VBAの依存性を低くしたということです。Wscript のことは気にしなくてよいです。行きがかりで書いただけの話ですが、つまり、Excelはなくても使えるレベルのコードだということです。そして、また改良型も、そのこだわりはなくしていません（^^;。
それで、WinAPIを使わないで、WMIを使いました。

まったく想像とは違う範囲の問題でした。#2のコードは、省いてしまった中に、その問題に対処していた部分がありましたが、ただ、昔のコードのままでは、やはりダメだったことは間違いなさそうです。

今回は、何度も試してみましたが、Wait の部分をなくしてしまうと、コードが素通りして、印刷しないことがありました。2秒が最適かは分かりません。少し遅めでもよいかもしれません。

Application.Wait Now + TimeSerial(0, 0, 2)　<-2秒の意味

これで、うまくいかないと、暗礁に乗り上げそうな気がします。

'//

Sub PdfPrintingR()
Dim strComputer
Dim objWMIService
Dim wShell
Dim pdfPath
Dim File
Dim oExec
Dim colProcessList
Dim objProcess

strComputer = "."
Set objWMIService = GetObject _
　　("winmgmts:\" & strComputer & "oot\cimv2")

If Range("A1").Value = "" Then Exit Sub
File = Range("A1").Value
If Dir(File) = "" Then MsgBox "ファイルが見つかりません。", vbExclamation: Exit Sub
Set wShell = CreateObject("Wscript.Shell")
pdfPath = "C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
Set oExec = wShell.Exec("""" & pdfPath & """ /p /h /o """ & File & """")
Application.Wait Now + TimeSerial(0, 0, 2)
Set colProcessList = objWMIService.ExecQuery _
　　("Select * from Win32_Process Where ProcessID =" & oExec.processId)

For Each objProcess In colProcessList
　　objProcess.Terminate
Next
Set oExec = Nothing
Set wShell = Nothing
Set objWMIService = Nothing
End Sub

WindFaller · Answer

#2の回答者です。

>「ファイル名または番号が不正です。」というメッセージで動きませんでした。
これは経験のないエラーでしたが、意味が分かりました。古いコードで可能だと思っていましたが、当時と今ではアクロバットの仕様も変わりました。それに加えて、こちらのコードを簡約化したことも原因でした。簡約化しないでも、同じくエラーはでるはずです。

原因は分かりましたので、すぐに追っつけ修正します。

>1)開いたPDFファイルを閉じる必要はありません。
>開けっ放しでOKです
試してはいないのですが、PDFファイルは閉じないといけないかもしれません。

WindFaller · Answer

こんにちは。

以下のコードは、昔、私が収録したコードで、内容的にみると、Wscript 対応になっています。
それを私なりに解釈して書き換えてみましたので、試してみださい。
私は、最近入れたばかりですから、pdf のAcrobat Reader の場所は、キメウチですが、大丈夫だと思います。
ファイル名はフルパスになっていますから、必要に応じて、分かち書き（Path + File名）のほうが見栄えがよいかもしれません。

以下は、数回の印刷試験済みです。
ほとんど書き換えずに、Excelのいらない　Wscript プログラムになります。

'//
Sub PdfPrinting()
Dim wShell
Dim pdfPath
Dim File
Dim ret
If Range("A1").Value = "" Then Exit Sub
File = Range("A1").Value
If Dir(File) = "" Then MsgBox "ファイルが見つかりません。", vbExclamation: Exit Sub
Set wShell = CreateObject("Wscript.Shell")
pdfPath = "C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
Set ret = wShell.Exec("""" & pdfPath & """ /n /p /h """ & File & """")
Set wShell = Nothing
End Sub

WindFaller · Answer

こんにちは。

今度の答えは、前回のような曖昧な解答にはならないと思います。
私自身、昔教わったことがある技術かもしれません。
まず、pdf拡張子で自動的に立ち上がるソフトウェアは何ですか？
Acrobat reader なら、可能だと思います。

もしも、Win10 で、pdf ファイルで立ち上がるソフトは、Microsoft Edge でしたら、私の知る範囲では、seleniumVBAというインターフェイスが、Edgeとマッチしていないようですので、無理かもしれません。（私の範囲だけの情報で、作者は、この件は触れていません）

【EXCEL-VBA】PDFファイルを開いて印刷したい

こちらを参考にして

#2で書いた内容は、いろんなものを省いてしまった結果で、Excel VBAの依存性を低くしたということです。

#2の回答者です。

こんにちは。

こんにちは。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング