PDFをPDFアプリで印刷しようと思っていますが上手くゆきません。
以下のコードを実行すると
「AcrobatReader この文書を開くときにエラーが発生しました。このファイルが見つかりません。」というコメントが出てしまいます。
以下の「fff」をMsgBoxを使って表示させたのですが、ファイル名は間違っていません。
フォルダの中にはPDFファイルを一つだけ置く決まりで運用しています。
コードの間違いを教えて下さい。
Sub PDFをPDFアプリで印刷する()
Dim wshShellObj As IWshRuntimeLibrary.WshShell 'Shellオブジェクト
Set wshShellObj = New IWshRuntimeLibrary.WshShell
Dim strShellCommand As String 'Shellコマンド
Dim folderPath As String
folderPath = "C:\フォルダパス\" 'フォルダパス
Dim str1 As String
Dim fff As Variant
str1 = "C:\フォルダパス\" 'フォルダパス
'Dir関数を使ってファイル名を取得する
fff = Dir(folderPath)
printFilePath = folderPath & fff '分割元のファイルパス
Dim printerName As String
printerName = "PDF reDirect v2 on Ne00:" 'プリンタ名(PDF印刷アプリ)
'Shellコマンドを設定
strShellCommand = "AcroRd32.exe /t " & printFilePath & " " & printerName
'Shellコマンドを実行
wshShellObj.Run (strShellCommand)
'オブジェクトを強制開放
Set wshShellObj = Nothing
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは
確認はしていませんが、これではないでしょうか?
https://teratail.com/questions/319795
空白を含むファイルパスやプリンタ名はダブルクォーテーションで括るとどうなりますか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/09 10:33
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
PDFファイルを開かずに印刷したい
Visual Basic(VBA)
-
VBA PDFファイル印刷後のAcrobatReaderDCの起動画面を閉じたい
Excel(エクセル)
-
PDFファイルを開き、印刷し、閉じるマクロ
Visual Basic(VBA)
-
-
4
vbaでPDFファイルが印刷されない
Visual Basic(VBA)
-
5
VBAでホルダー内のPDFを一括印刷したい
Excel(エクセル)
-
6
ExcelVBAでPDFを閉じるソース
その他(Microsoft Office)
-
7
EXCEL VBAでPDFファイルを開いて印刷
Visual Basic(VBA)
-
8
【EXCEL-VBA】PDFファイルを開いて印刷したい
Excel(エクセル)
-
9
Excel VBAでPDFファイルをMicrosoft Print to PDFで出力したい
Visual Basic(VBA)
-
10
vbaでpdfを開いて1ページ目のみ印刷する。
PDF
-
11
印刷要求順番と印刷出力順番が違う。
Visual Basic(VBA)
-
12
フォルダ内にあるPDFファイルを一括で印刷する方法※右クリック→印刷はNG
PDF
-
13
Adobe Reader を閉じる
その他(Microsoft Office)
-
14
エクセルvbaでdocuworksprinterの出力先を設定
Visual Basic(VBA)
-
15
PowerShellを使って関連付けられたアプリケーションでファイルを開く時のエラー
Excel(エクセル)
-
16
EXCEL ページを指定してPDF出力するVBAを教えてください。
PDF
-
17
DATE型変数を初期化する方法
Visual Basic(VBA)
-
18
excel マクロ PDF化の際のエラーについて
Visual Basic(VBA)
-
19
PDFファイルを印刷後、自動でファイルが閉じる方法を教えてください。
その他(ソフトウェア)
-
20
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルvbaでdocuworksprinter...
-
バッチファイル 二つ上のディ...
-
【VBA】ExcelマクロでCSVファイ...
-
エクセルのマクロで特定フォル...
-
xcopyコマンドの進行状況を表示...
-
ExcelのVBAで上書き保存を確...
-
VBA★PDFをPDFアプリで印刷し...
-
Excel 相対パス
-
Eclipse
-
エクセルVBAで一つ上の階層...
-
VBS パスに変数を入れたい
-
ExcelVBAの使い方 ¥の使い方...
-
指定したフォルダ内の最新ファ...
-
setcurrentdirectoryのパス拡張...
-
リストボックスにファイル名の...
-
【VB6】デバイスマネージャを表...
-
ファイル名の半角スペースについて
-
実行ファイルのパスを取得したい
-
【VB.NET】App.configにファイ...
-
A列に記載されているフォルダ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルvbaでdocuworksprinter...
-
バッチファイル 二つ上のディ...
-
VBAでパワーシェルを実行したい...
-
VBA一覧取得 再投稿
-
【VB.NET】App.configにファイ...
-
エクセルVBAで一つ上の階層...
-
初心者powershellのPS1ファイル...
-
ExcelVBAの使い方 ¥の使い方...
-
EXCEL(VBA)で指定フォルダ内の...
-
SaveAsの保存先について
-
Excel 相対パス
-
パスワード保護されたExcelファ...
-
【VBA】ExcelマクロでCSVファイ...
-
xcopyコマンドの進行状況を表示...
-
エクセルのマクロで特定フォル...
-
VBA★PDFをPDFアプリで印刷し...
-
VBS パスに変数を入れたい
-
コマンドプロンプトのコピー関...
-
【VBA】複数のtxtファイルから...
-
開いているファイルを削除し、...
おすすめ情報