エクセルマクロ ２部づつ印刷する

現在、下記のようなマクロを組んでいました。
２部づつ印刷するには、何がいけないのでしょうか？
（変数まではうまくいき、１部印刷するだけなら、できました）

Sub 一括印刷()
Dim a, b As Integer
Sheets("○○").Select

a = Range(d4)
b = Range(d5)

For n = a To b
Range("d10") = n

AcriveSheet.PrintOut Copies:=2

End Sub

No.1 ベストアンサー 回答者： keithin 回答日時： 2012/05/22 14:01

Sub 一括印刷()

　Sheets("○○").Select

’セル番地を指定するときは””で囲うのを忘れない
　For n = range("D4").value To range("D5").value

　　Range("d10") = n
　’application.wait now + timeserial(0,0,5)
　　AcriveSheet.PrintOut Copies:=2

’ループの折り返し点を指定していない
　next n

End Sub




＃補足
ご相談のようなマクロを書いていると、しばしばシートの再計算が追い付かずに印刷が失敗する場合もあります。
そういった症状が出たときは、ループの途中で少し休憩を入れます。

この回答へのお礼

回答ありがとうございました。

上記のように訂正してみたのですが、やはり２部づつ印刷をすることができません。
面倒ですが、印刷ボタンを２回押して対応しました。

お礼日時：2012/06/07 08:11