エクセルファイルとＰＤＦ

こんにちは。エクセル2010初心者です。楽しんでいます。
いろいろと勉強中なので、ポイントがずれていれば、申し訳ありません。

今、下記画像左側のような、エクセルのシートを作成しました。
シンプルな商品の都道府県の販売データです。ページ数は通常、複数枚に渡ります。

ここで、このエクセルシートを印刷しようと思っているのですが、印刷する際に、エクセルではなく、画像右側のようにＰＤＦファイルとして、保存して、印刷することはできるのでしょうか。

できれば、ＶＢＡプログラムでしたいと思っています。
パスの指定？等の使い方がわかりませんでした。

どうぞよろしくお願いします。

No.4 回答者： 銀鱗 回答日時： 2016/07/30 17:27

2010は標準でPDF出力できたような気がする。

「印刷」ではなく「保存と送信」でPDF化できますよ。
PDF化されたものの印刷はPDFビューワソフトで行います。

No.3 回答者： hallo-2007 回答日時： 2016/07/30 13:39

＞パスの指定？等の使い方がわかりませんでした。

一案です。
Myprinter = Application.ActivePrinter
Application.ActivePrinter = "Microsoft XPS Document Writer on Ne00:"
ActiveSheet.PrintOut printtofile:=True, PrToFileName:=ThisWorkbook.Path & "\販売データ.xps"
Application.ActivePrinter = Myprinter

PDFではなく、XPSを利用した一例です。
流れは
Myprinterに現在の使用しているプリンターを覚えておく。
プリンターをXpsプリンタに変える。
同じフォルダーに　販売データ　と云う名前で印刷データを保存
プリンターを覚えておいた最初のプリンターに戻す。

こんな感じです。

No.2 回答者： AVENGER 回答日時： 2016/07/30 12:28

エクセルのデータに限らず、プリントできるデータをＰＤＦ化してしまうソフトがありますが。

それを使った方が早いんじゃないでしょうか？

No.1 回答者： goold-rnan 回答日時： 2016/07/30 12:26

印刷してPDFにして保存するだけなら

With Activesheet
　　.PrintOut
　　.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.Name & ".PDF"
※ファイル名をシート名と同じにしましたが、自分の好きな名前をつけるとか、どこかのセルの内容と同じにするなら適時変更してください。

ただ印刷してPDFにするのではなく、PDFにしてからそのPDFをExcel上から印刷するのはちょっとわかりません。ほかの識者にお任せします。