
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も見ています
-
一回も披露したことのない豆知識
あなたの「一回も披露したことのない豆知識」を教えてください。
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。
-
限定しりとり
文字数6文字以上の単語でしりとりしましょう
-
チョコミントアイス
得意ですか?不得意ですか?できれば理由も教えてください。
-
カラオケの鉄板ソング
歌えばその場が絶対盛り上がる「鉄板ソング」を教えてください!
-
microsoft print to pdf 保存先
その他(コンピューター・テクノロジー)
-
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
-
印刷ダイアログを表示させない方法
Visual Basic(VBA)
-
-
4
EXCEL ページを指定してPDF出力するVBAを教えてください。
PDF
-
5
excel マクロ PDF化の際のエラーについて
Visual Basic(VBA)
-
6
エクセルvbaでdocuworksprinterの出力先を設定
Visual Basic(VBA)
-
7
VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません
Visual Basic(VBA)
-
8
エクセルVBAでPDFを作成したい
Visual Basic(VBA)
-
9
PDFファイルを開き、印刷し、閉じるマクロ
Visual Basic(VBA)
-
10
vbaでPDFファイルが印刷されない
Visual Basic(VBA)
-
11
【EXCEL-VBA】PDFファイルを開いて印刷したい
Excel(エクセル)
-
12
VBA PDFで保存するマクロで実行時エラー 1004
Visual Basic(VBA)
-
13
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
14
vbaでpdfを開いて1ページ目のみ印刷する。
PDF
-
15
マクロで印刷時のポートについて
Access(アクセス)
-
16
EXCEL VBAでPDFファイルを開いて印刷
Visual Basic(VBA)
-
17
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
18
VB6上から印刷ダイアログを表示させずにPDFを作成したい
Visual Basic(VBA)
-
19
EXCEL マクロに於ける プリンタ番号検索方法
その他(Microsoft Office)
-
20
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・昔のあなたへのアドバイス
- ・字面がカッコいい英単語
- ・許せない心理テスト
- ・歩いた自慢大会
- ・「I love you」 をかっこよく翻訳してみてください
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・はじめての旅行はどこに行きましたか?
- ・準・究極の選択
- ・この人頭いいなと思ったエピソード
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・【お題】甲子園での思い出の残し方
- ・【お題】動物のキャッチフレーズ
- ・人生で一番思い出に残ってる靴
- ・これ何て呼びますか Part2
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・あなたが好きな本屋さんを教えてください
- ・かっこよく答えてください!!
- ・一回も披露したことのない豆知識
- ・ショボ短歌会
- ・いちばん失敗した人決定戦
- ・性格悪い人が優勝
- ・最速怪談選手権
- ・限定しりとり
- ・性格いい人が優勝
- ・これ何て呼びますか
- ・チョコミントアイス
- ・単二電池
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・泣きながら食べたご飯の思い出
- ・一番好きなみそ汁の具材は?
- ・人生で一番お金がなかったとき
- ・カラオケの鉄板ソング
- ・自分用のお土産
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
CString から LPCTSTRの型に変換
-
Excel VBAでPDFファイルをMicro...
-
文字コードの%E3%80%とは何です...
-
SQLのデータで半角カナを全角に...
-
テキストをhtml変換するには
-
ウイザードからのVBAでクエリー...
-
エクセルでの漢字(全角ひらが...
-
gccでiconvを使った文字コード...
-
CString型からdouble型への変換
-
CSVファイルをTSV形式に変換
-
Delphiの型変換
-
16進数の文字列を文章に変える
-
SJIS->UTF8->SJISコード変換に...
-
vbwide(半角⇒全角変換)について
-
ローマ字からカナに変換する方...
-
漢字からカタカナ変換マクロ
-
CSVファイルの中で、「 , 」カ...
-
エクセルで数値を全角文字(カ...
-
住宅にカナを入力する際に丁目...
-
英数字のみ全角から半角に変換
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
文字コードの%E3%80%とは何です...
-
Excel VBAでPDFファイルをMicro...
-
CString から LPCTSTRの型に変換
-
SQLのデータで半角カナを全角に...
-
SJIS->UTF8->SJISコード変換に...
-
VBScript文字列をSJISからUTF8...
-
ローマ字からカナに変換する方...
-
gccでiconvを使った文字コード...
-
エクセルでの漢字(全角ひらが...
-
算用数字(半角)から漢数字へ...
-
CString型からdouble型への変換
-
ウイザードからのVBAでクエリー...
-
VBScript 全角英数記号→半角英...
-
シャープ(#)の受け渡し
-
文字化けしてしまって困っています
-
五十音の並べ替えsortを教えて...
-
Kシェルでの文字型→数値型変換
-
文字列が勝手にエスケープ文字...
-
漢字からカタカナ変換マクロ
-
漢数字の変換
おすすめ情報
すいません、記述を変更したので無駄な記述をしているころがありました。
(最初は”変換後”を拡張子の前につけようと思ってました)
Replace(FileName, ".pdf", "") & ".pdf"
→FileName
です。
そう思われますよね。そして、そういう需要がないから調べても出てこないのだとも思いました。
フォントの問題で今のところ解決できる方法がこれしかなかったので。