エクセルのマクロの連続印刷で困っています。

質問

初心者です。
エクセルのマクロで通知書を指定した番号～番号までを連続印刷
させたいのですが、印刷をすると、印刷結果が最初の番号は指定した
番号まで印刷されて良かったのですが、次から最後までの番号の
印刷が同じものが印刷されていき、どんどん増えていってしまって
いて困っています。
いろいろとやり方を変えてみたりしたのですが、どこが間違えて
いるのかが結局分からず、どなたか詳しい方、教えていただけます
ようでしょうか？＞＜
よろしくお願いします。

----
失敗経緯は↓の感じです

・ただ連続印刷させたらシート1まで印刷したのでシート2を
　セレクトさせるようにした

・連続印刷させるように指示した番号が繰り返し印刷される
　のでプレビューさせて、プレビューされた1枚だけが印刷
　させるようにプレビューを追加した

にもかかわらず、プレビューでは1枚だけがプレビューされ
るのに印刷結果はプレビュー以外の番号のものまで印刷されて
しまいます。しかも、既に印刷がされているものまでもです。
シート2は、VLOOKUPで読み込ませているものは1人分だけの
情報のはずなのに、何故、それ以外の人の分まで印刷して
しまうのでしょうか＞＜

エクセルの構成は、

・シート1　通知書に印刷させる用でID管理用の一覧になっています。
このシートにシート2で印刷させたいNoを入力・印刷指示
をさせています。

・シート2　シート1で指定されたNoをVLOOKUPで読み込ませて表示させて
います。（1人分で1枚のみ）

・セルには名前をつけています

Sub 通知書を連続印刷する()
myMsg = MsgBox(Range("通知書連続始め").Value & " 番から " &
Range("通知書連続終わり").Value & " 番まで一括印刷しますか?" &
Chr(10) & Chr(10) & "現在の使用プリンタは " & Application.ActivePrinter
& " になっています。", vbOKCancel)

If myMsg = vbOK Then
For i = Range("通知書連続始め") To Range("通知書連続終わり")
Range("連続印刷するNO").Value = i

Worksheets("シート2").Select
Worksheets("シート2").PrintPreview (False)
Worksheets("シート2").PrintOut

Next
Else
MsgBox (" 一括印刷を中止しました ")
End If
End Sub

回答No.1

o_chi_chi · ベストアンサー

Worksheets("シート2").Select

これが実行された時点で

Range("通知書連続始め")

はシート2を参照してしまいます。

Worksheets("シート1").Range("通知書連続始め")

とするか

start = Range("通知書連続始め")

と変数を使用するとかしてみてください。

お礼

ありがとうございます！
できました！
本当に助かりました！＞＜

冷静に教えていただくと、なるほど「参照してしまう」ことが
原因ということもわかりました。
まだまだ初心者ですが、がんばって理解を深めていこうと
思います。
またご縁がありましたら教えていただけると嬉しいです。
本当にありがとうございました！