エクセルの同一シートをPDFで保存するVBA

質問

下記のページでサンプルをダウンロードしました。
http://pc.nikkeibp.co.jp/article/NPC/20070301/263710/
1つのシートを連続印刷するものです。

しかしながら、これをPDFに出力する場合、1データ毎に
保存場所を確認してきます。しかも、保存ファイル名も同一です。
（通常使うプリンタをPDF Printerに指定）

これを自動で、1つのPDFファイルに全データを保存、
もしくは、1つのpdfに1つのデータが保存されたものを人数分、
保存することは可能でしょうか？

Sub 個人票印刷()
Range("個人番号") = Range("自")
Do While Range("個人番号") <= Range("至")
Sheets("個人票").PrintOut
Range("個人番号") = Range("個人番号") + 1
Loop
End Sub

回答No.1

assault852

PDF出力時にそういう編集をしておかないと無理だと思いますよ。