Sub pnt()
Dim Num1 As Long, Num2, I As Long
Num1 = Sheets("1").Range("A3") + 3
Num2 = InputBox("请输入打印次数", "打印次数")
With Sheets("1")
For I = Num1 To Num1 + Num2 - 1
.Range("A3") = I
.PrintOut
Next I
End With
End Sub
没用过打印,你试试
Sub test()
Dim num As Long
num = InputBox("请输入打印次数", "打印次数")
With Sheets("1")
For i = 1 To num
.Range("A3").Value = Range("A3").Value + 3
.PrintOut
Next i
End With
End Sub
没用过打印,你试试
Sub test()
Dim num As Long
num = InputBox("请输入打印次数", "打印次数")
With Sheets("1")
For i = 1 To num
.Range("A3").Value = Range("A3").Value + 3
.PrintOut
Next i
End With
End Sub
Sub test()
Dim num As Long
num = InputBox("请输入打印次数", "打印次数")
With Sheets("1")
For I = 1 To num
.Range("A3").Value = Range("A3").Value + RandBetween(1, 5)
.PrintOut
Next I
End With
End Sub