VBAでのヘッダー操作について

質問

ただいまＶＢＡの勉強中なのですが、
１３ページあるワークシートに対してヘッダーにページ番号を振るマクロを作成しようとしております。
ページ番号は以下のような３桁表示にしたいのですがうまくいきません。
001,002,・・・009,010,012,013

With Worksheets("表１").PageSetup

.LeftHeader = Format$("&P", "000")

End With

このようにプログラムしたのですが、結果は
1,2,・・・9,10,11,12,13
となってしまいます。
どのようにすれば３桁表示になってくれるのでしょうか？

回答No.1

masa_019

こんにちは。
多分、ページ毎にヘッダーを設定し直して1ページづつ印刷することになると思います。
簡単なサンプルを掲げておきますので、参考にしてください。

Sub Test()
Dim hp As Long
Dim vp As Long
Dim p As Long
Dim n As Long

With Worksheets("Sheet1")
　　hp = .HPageBreaks.Count + 1
　　vp = .VPageBreaks.Count + 1
　　p = hp * vp

　　For n = 1 To p
　　　　.PageSetup.LeftHeader = Format(n, "000")
　　　　.PrintOut From:=n, To:=n, Copies:=1, Preview:=True
　　Next

End With

End Sub

お礼

出来ました!!
ページ毎に設定、印刷を繰り返せばよかったのですね。
大変勉強になりました。
ありがとうございます。