求助：打印时间间隔问题

gggomyga

问题：如何在E3设置每次打印的页数，比如10页，我点打印的时候，每次间隔10秒，再打印一页，一共打印10页就停止

自己151

dim i％
public sub 自己151 ()
application.ontime now()＋timevalue("00:00:10") "打印"
end sub
public sub 打印()
i ＝i＋1
if i＜11then
sheet1.printout
call 自己151
end if
end sub

自己151

手机发出，请测试。答错请包涵.

gggomyga

自己151 发表于 2017-1-7 00:11
手机发出，请测试。答错请包涵.

不行  错误！