Question

如何使Excel中这条宏命令重复打印100次？

Sub 打印()

ActiveWindow.SelectedSheets.PrintOut
s = Val(Range("A3"))
s = s + 30
Range("A3") = " " & Right("0000" & s, 4)

s = Val(Range("A4"))
s = s + 30
Range("A4") = " " & Right("0000" & s, 4)

s = Val(Range("A5"))
s = s + 30
Range("A5") = " " & Right("0000" & s, 4)

s = Val(Range("A6"))
s = s + 30
Range("A6") = " " & Right("0000" & s, 4)

s = Val(Range("A7"))
s = s + 30
Range("A7") = " " & Right("0000" & s, 4)

s = Val(Range("A8"))
s = s + 30
Range("A8") = " " & Right("0000" & s, 4)

s = Val(Range("A9"))
s = s + 30
Range("A9") = " " & Right("0000" & s, 4)

s = Val(Range("A10"))
s = s + 30
Range("A10") = " " & Right("0000" & s, 4)

s = Val(Range("A11"))
s = s + 30
Range("A11") = " " & Right("0000" & s, 4)

s = Val(Range("A12"))
s = s + 30
Range("A12") = " " & Right("0000" & s, 4)

s = Val(Range("A13"))
s = s + 30
Range("A13") = " " & Right("0000" & s, 4)

s = Val(Range("A14"))
s = s + 30
Range("A14") = " " & Right("0000" & s, 4)

s = Val(Range("A15"))
s = s + 30
Range("A15") = " " & Right("0000" & s, 4)

s = Val(Range("A16"))
s = s + 30
Range("A16") = " " & Right("0000" & s, 4)

s = Val(Range("A17"))
s = s + 30
Range("A17") = " " & Right("0000" & s, 4)

s = Val(Range("A18"))
s = s + 30
Range("A18") = " " & Right("0000" & s, 4)

s = Val(Range("A19"))
s = s + 30
Range("A19") = " " & Right("0000" & s, 4)

s = Val(Range("A20"))
s = s + 30
Range("A20") = " " & Right("0000" & s, 4)

End Sub

Answer 1

在sub 打印()下添加两行。
aa = InputBox("请输入打印的次数")
For i = 1 To aa

在End Sub前添加一行：
next
这样可以先提示打印的次数，再打印。注意您调试时最好输入2，否则是打印如100页就麻烦了，哈哈。
如果是100行打印在一页，则另外的方法了。
供参考，祝顺利。