VBAで、指定したセルの文字のＰＤＦファイルを印刷したいのですが。

質問

VBAで、指定したセルの文字のＰＤＦファイルを印刷したいのですが。

VBAの起動時に、指定したセルの文字をファイル名として読み取って、
そのファイル名のPDFファイルを自動印刷させたいのですが、
セルの文字を、PDFの起動パスにセットする方法が分かりませんので
ご教授いただけませんでしょうか。

具体的にはこの様な処理を考えています。

A1セルの文字を、PDFのファイル名にします。
PDFファイルは、C:￥PDFファイル　に保存されています。
A1に「てすと」の文字があれば、「てすと.pdf」が印刷されます。

お手数ですが宜しくお願いいたします。

回答No.1

0909union · ベストアンサー

意味不明なことが多々ありますが、PDFファイルにするには２つ法方があります。

とりあえず仕組みだけ。

まず印刷対象の取得をします。これは印刷対象を作成した、又は表示できるソフトがCOMに対応していないとだめですね。

Visual Basicのヘルプで

getobject

で検索して、リファレンスと使用例を見ましょう。

次にそのオブジェクトのメソッドに印刷メソッドが使えるか探ります。MicrosoftOffice系ならほとんどの場合大丈夫です。

例：
Set MyXL = Getobject("c:\vb4\MYTEST.XLS")
ActiveSheet.PrintOut

エクセルなら同じようにヘルプで印刷とすれば、印刷の指定の仕方がでます。リファレンスを見ましょう。上記は当然PrintOutメソッドのオプションを指定しないとPDFになりませんね。

GetObject対象がCOMを公開又は未対応であれば、エクスプローラーのCOMを使用して、GUIの操作をスクリプトレベルで行えばいいです。

ネット上で"Shell.Application"で検索してください。

あなたの場合ファイル名だけ気にしているようですが、その前にたくさん解決しなければ、いけない問題がありますね。

お礼

過去の投稿などを見て解決できました。
ご回答していただきありがとうございました。

補足

さっそくのご回答ありがとうございます。

意味不明な説明で申し訳ありませんでした。
補足説明をさせていただきます。

印刷対象のＰＤＦファイルは既に、c:￥ＰＤＦファイル に存在しています。
VBAの処理で、A1セルの文字を読み取って該当の
PDFファイルの自動印刷を行うようにしたいと考えております。

例えば、c:￥ＰＤＦファイルのフォルダ内に、
「AAA.pdf」、「BBB.pdf」、「CCC.pdf」が存在している状態で、
VBAを起動させて、A1セルに「BBB」の文字があれば
「BBB.pdf」が印刷されます。

以上宜しくお願い致します。