• ベストアンサー

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

現在、下記のようなマクロを組んでいました。 2部づつ印刷するには、何がいけないのでしょうか? (変数まではうまくいき、1部印刷するだけなら、できました) 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

質問者が選んだベストアンサー

  • ベストアンサー
  • keithin
  • ベストアンサー率66% (5278/7941)
回答No.1

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

marumaruku
質問者

お礼

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

関連するQ&A