Excel VBAを使用して、既存のPDFファイルをMicrosoft print to PDFの形式で出力(PDF作成)したいと考えています。また、出力後PDFのファイル名には「変換後_」をつけることで、基ファイルと区別できるようにしたいです。
環境は、OS:Windows10、Excel:Microsoft Office2010、インストールしているPDFソフト:Adobe Reader DCです。
下記記述を試してみたところエラーが出てしまいました。
FilePath=基PDFファイルのディレクトリパス
FileName=基PDFファイルの名前
CreateObject("Shell.application").ShellExecute FilePath & FileName
ActiveWindow.PrintOut ActivePrinter:="Microsoft Print to PDF", PrintToFile:=True, PrToFileName:=FilePath & "変換後_" & Replace(FileName, ".pdf", "") & ".pdf"
ちなみに、下記記述でExcelのシートをMicrosoft print to PDFでPDF変換することはできました。
ActiveSheet.PrintOut ActivePrinter:="Microsoft Print to PDF", PrintToFile:=True, PrToFileName:=FilePath & "変換後_" & Replace(FileName, ".pdf", "") & ".pdf"
ご存じの方がいらっしゃいましたら、ご教示いただけますでしょうか。
宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) PDFファイルに日付を名前にして保存したい。 エクセル2019でワークシートに請求書のフォームを作り 2 2023/05/27 11:13
- Excel(エクセル) 【VBA】PDF出力に任意のファイル名前を付ける方法 3 2023/07/21 10:55
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
- PDF AutoCAD図面をPDF fileに変換した際、画像情報やブロック名はわかるのでしょうか。 1 2022/06/03 09:42
- PDF エクセルのVBAでファイルをpdfで保存するとソフトによっては開けなくなる 3 2022/06/08 10:20
- PDF PDF化するときのサイズについて 2 2023/07/15 10:16
- その他(プログラミング・Web制作) python OpenPyXLを使って出力結果をエクセルに書き込み 2 2022/06/04 19:46
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
microsoft print to pdf 保存先
その他(コンピューター・テクノロジー)
-
EXCEL VBAでPDFファイルを開いて印刷
Visual Basic(VBA)
-
VBからPDFファイル自動生成するには
Visual Basic(VBA)
-
-
4
ExcelVBAでPDFを閉じるソース
その他(Microsoft Office)
-
5
VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません
Visual Basic(VBA)
-
6
VB6上から印刷ダイアログを表示させずにPDFを作成したい
Visual Basic(VBA)
-
7
PDFファイルを開かずに印刷したい
Visual Basic(VBA)
-
8
PDFファイルを開き、印刷し、閉じるマクロ
Visual Basic(VBA)
-
9
エクセルvbaでdocuworksprinterの出力先を設定
Visual Basic(VBA)
-
10
excel マクロ PDF化の際のエラーについて
Visual Basic(VBA)
-
11
VBA PDFファイル印刷後のAcrobatReaderDCの起動画面を閉じたい
Excel(エクセル)
-
12
印刷ダイアログを表示させない方法
Visual Basic(VBA)
-
13
VBA PDFで保存するマクロで実行時エラー 1004
Visual Basic(VBA)
-
14
VBscriptでPDFファイルを直接印刷できるようにするためには?
Microsoft ASP
-
15
エクセルVBAでPDFを作成したい
Visual Basic(VBA)
-
16
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
17
PDF 最小サイズ"で保存するマクロ"
PowerPoint(パワーポイント)
-
18
マクロで印刷時のポートについて
Access(アクセス)
-
19
画像ファイル変換(Tiff→PDF)
Visual Basic(VBA)
-
20
EXCEL マクロに於ける プリンタ番号検索方法
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでPDFファイルをMicro...
-
改行を含んだ文字列を正規表現...
-
文字列を quoted-printable 文...
-
文字コードの%E3%80%とは何です...
-
CString から LPCTSTRの型に変換
-
ローマ数字の変換をしたいのですが
-
Visual Studio プロパティペー...
-
文字化けしてしまって困っています
-
LINUX上でシリアル通信(C++)
-
VBScript 全角英数記号→半角英...
-
CSVファイルの中で、「 , 」カ...
-
EXCELからCSVにすると余計なカ...
-
英数字のみ全角から半角に変換
-
GoogleAppsScript文字列置換の...
-
エクセルにMicrosoft Barcode C...
-
全角/半角キーをSendkeys関数で...
-
IEからEdgeへの移行に伴うIMEの...
-
VBA 文字に半角が含まれて...
-
VBA 置換文字がみつからない時
-
「何とかで始まり、何とかで終...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでPDFファイルをMicro...
-
文字コードの%E3%80%とは何です...
-
CString から LPCTSTRの型に変換
-
SJIS->UTF8->SJISコード変換に...
-
Pythonについて。
-
Visual Studio プロパティペー...
-
r18文学賞は文字数ではなく、枚...
-
ローマ字からカナに変換する方...
-
エクセルでの漢字(全角ひらが...
-
日付をシリアル値に変換
-
テキストをhtml変換するには
-
VBScript 全角英数記号→半角英...
-
漢字からカタカナ変換マクロ
-
LINUX上でシリアル通信(C++)
-
VBScript文字列をSJISからUTF8...
-
Pythonについて。
-
SQLのデータで半角カナを全角に...
-
gccでiconvを使った文字コード...
-
【PHP】全角記号を半角記号...
-
CString型からdouble型への変換
おすすめ情報
すいません、記述を変更したので無駄な記述をしているころがありました。
(最初は”変換後”を拡張子の前につけようと思ってました)
Replace(FileName, ".pdf", "") & ".pdf"
→FileName
です。
そう思われますよね。そして、そういう需要がないから調べても出てこないのだとも思いました。
フォントの問題で今のところ解決できる方法がこれしかなかったので。