リストから納品書の印刷

質問

http://oshiete1.goo.ne.jp/kotaeru.php3?q=1183409では、リストにあるデータの納品書の印刷について教えていただき、ありがとうございました。

Sub 楕円1_Click()

Dim i '●●変数の宣言●●

Worksheets("sheet1").Activate
For i = 2 To 3 '300
Cells(1, "F") = i
Range("a1:c8").PrintOut
Next i
End Sub

sheet１で、印刷をすることにして、
リストは、sheet２にあるのですが、
マクロを実行すると、３行目までしか
印刷をしてくれないのですが、それはどうしてでしょうか。勉強不足なので何度も質問してごめんなさい。
よろしくお願いいたします。

回答No.1

taocat · ベストアンサー

＞勉強不足なので何度も質問してごめんなさい。

ここは理解できるまで何度でも質問するところです。
その代わり途中で投げ出さないようにしませう。(^^;;;

提示のコード、for i=2 to 3 では、
セルF1の値が２となり1枚
セルF1の値が３となり1枚
の２枚しか印刷されません。

For i = 2 To 3　　を

For i = 2 To 50 　としてみましょう

こうすると、iが２～５０まで変化します。
で、５０－１＝４９枚印刷されます。

たぶんこのfor文は実際はリストの行ループだと思いますが、どうでしょう。

ただ疑問なのは、sheet2のリストにより印刷するとあるに拘らず、Sheet2の文字がどこにも出てきてないことです。
想像するに、今回のコードはただ単にSheet1を印刷するテストですね？

それから、最も早く解決する方法は、Sheet1とsheet2のレイアウトをそのまま提示することだと思います。

以上です。

お礼

＞ここは理解できるまで何度でも質問するところです。
＞その代わり途中で投げ出さないようにしませう。(^^;;;

ありがとうございます。自分で納得できないとどうしても次へ進めないもので、何度も質問させていただきました。
taocatさんには、前回から引き続き、何度も教えていただき、助かりました。

できました！

＞それから、最も早く解決する方法は、Sheet1とsheet2の
レイアウトをそのまま提示することだと思います。

はい、わかりました。次の質問をさせていただく時の参考にさせていただきます。