エクセルマクロのページカウンタ

質問

エクセル2002で，Sheetに表があります．
同じ表を使用します．
データは１０件分入ります．
１０件を超えると次の用紙に印刷をします．
印刷はマクロ命令で作成しています．
印刷の際，ページ番号をページの下にふりたいのです．
１枚目には「- 1 -」，２枚目には「- ２ -」のように
印刷できるとありがたいのですが．
どなたか，ご教授をよろしくお願いいたします．

回答No.1

toshi_2000 · ベストアンサー

次の通りです。
With ActiveSheet.PageSetup
.CenterFooter = "-" & page1 & "-"
End With

お礼

印刷できました．
ありがとうございました．

回答No.2

onlyrom

フッター設定をマクロ記録してみればすぐ分かりますよ。

Sub test()

　ActiveSheet.PageSetup.CenterFooter = "- &P -"

End Sub

お礼

フッター部に印刷はしますが
同じシートの印刷なので
カウントアップはしないようです．
ありがとうございました．