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