質問: i activesheet.printout next i end with end sub ---------------------------------------------------------------------------------
回答: 例えば、inputbox で数字を聞くという方法はどうでしょうか。 > application.wait now + timeserial(0, 0, 2) '2秒のウェイトを置く ウェイトの2秒が適しているかは何とも言えませんが、なるべく、マクロを止める方法は残しておいたほうがよいと思います。ウェイトはいらなくても、かならず、doevents は残しておいてください。 '// sub test1() dim i as long, j as long dim lastcnt as long dim ret as variant const pcnt as integer = 3 '回数 with activesheet 'シート ret = application.inputbox("枚数を入れてください。", type:=1) if ret < 0 or vartype(ret) = vbboolean then exit sub lastcnt = ret for i = 1 to lastcnt for j = 1 to pcnt .range("a1").value = i .printout , preview:=true doevents application.wait now + timeserial(0, 0, 2) '2秒のウェイトを置く,なくても良い next j next i end with end sub