Excle 表紙作成マクロ

質問

今、添付しているような表紙を作成しているのですが、下のマクロで印刷からPDF化をしています。
ただ、毎回名前をつけなければいけないので、大変時間がかかります。
どなたか、楽な方法があるなら教えてください。

Sub Test()
Dim c As Range
Dim Ws As Worksheet

Set Ws = Sheets("記録写真（表紙）")

For Each c In Sheets("名前").Range("B1:B6")
Ws.Range("A10").Value = c.Value
'念のため
DoEvents
Ws.PrintOut
Next

End Sub

回答No.2

keithin · ベストアンサー

＞acrobat6.0

プリンタを右クリックしてプロパティ（ご利用のウィンドウズの種類によっては印刷設定）から「ＰＤＦの保存先を確認」のチェックを外しておく
マクロを例えば次のように修正する

Sub Test()
　Dim c As Range
　Dim Ws As Worksheet

　Set Ws = Sheets("記録写真（表紙）")

　For Each c In Sheets("名前").Range("B1:B6")
　　Ws.Range("A10").Value = c.Value

　　ws.copy
　　activeworkbook.saveas c.value & ".xls"
　　activesheet.printout
　　activeworkbook.close false

　Next
End Sub

お礼

早速使わせていただきました。
ありがとうございます！
これを考えていて大変時間がかかっていたので、大変助かりました。
ありがとうございました。

回答No.1

keithin

＞毎回名前をつけなければいけないので、大変時間がかかります。

そこはエクセルではなく、あなたがご利用の「ＰＤＦにするソフト」(例えばAdobe PDFとかPrimoPDFとかプリンタの種類として表示される名称）の機能や設定によって解決する部分です。

ご利用のPDFにするソフトの名称とバージョンをキチンと調べ、またご利用のウィンドウズの種類やエクセルのバージョンを含め具体的な情報を添えて、ご相談を投稿し直してみて下さい。

補足

Excelのバージョンは2003
PDFソフトはacrobat6.0です。