マクロで印刷時に連続番号を付けたい

質問

エクセル　2003　で　　印刷時に　例えば
同じ文章で　　A10 のセル位置に　　印刷するときに
マクロで1から　Nまで　の整理番号を順番に付けて印刷したいのですが
ご指導ねがいます

1回目の印刷は　1
2回目の印刷は　2

回答No.1

KURUMITO · ベストアンサー

次のようなコードにすればよいでしょう。

Sub ページ番号付印刷()
Dim mypage As Integer
mypage = InputBox(Prompt:="最終となるページ番号を入力してください。")
For i = 1 To mypage
Range("A10") = i
ActiveSheet.PrintOut
Next
End Sub