マクロ連番印刷の桁数でオーバーフロー

質問

マクロ初心者です。OSはＷｉｎｄｏｗｓ７Ｐｒｏです。
伝票に連番を印刷したくて、当サイトで見つけた下記のマクロをエクセル2010で実行しました。
連番桁数が5桁までは問題なく実行できるのですが、6桁になると「実行時エラー’6’オーバーフローしました」となります。
デバッグのボタンをクリックすると10行目の「For idx = frmPage To toPage」がマーカーで表示されます。
伝票の連番は６桁しか使いません。
私にはお手上げです。どなたか教えてください。

Sub 連番印刷()
Dim idx As Integer
Dim frmPage, toPage
frmPage = Application.InputBox("連番を挿入して印刷します" & Chr(13) _
& "開始番号を入力してください", Type:=1)
toPage = Application.InputBox("終了番号を入力してください", Type:=1)
If frmPage > 0 And toPage >= frmPage Then
kakunin = MsgBox("番号" & frmPage & "～" & toPage & "で印刷をしますか ？", 4, "番号の確認")
If kakunin = 6 Then
For idx = frmPage To toPage
Range("e1").Value = idx
ActiveSheet.PrintOut
Next idx
End If
Else
MsgBox "開始番号、終了番号が不適切です。印刷は行いません"
End If
End Sub

回答No.1

m3_maki · ベストアンサー

Dim idx As Integer

を

Dim idx As Long

に変更してください。

詳細はこちらを参考に。
http://www.accessclub.jp/vba/help/011.html

お礼

おかげ様で伝票の6ケタ連番印刷ができました。今まではナンバリングを使って1回に200枚ほど押していましたので、これからはずいぶんと楽になります。
ありがとうございました。