Question

excel中vb打印代码问题

急求一个excel中vb打印代码：

Private Sub 打印_Click()
这个“打印”按钮实现：打印当前选定区域2份，然后J2格由1变2（加1），再打印2份，再加1，再打印……一直到J2格是118打印2份后，结束。
End Sub

谢谢！
Private Sub 打印_Click()
for i =1 to 118
application.activesheet.printout copies:=2
next i
End Sub

这个自己实现了，还有什么方法？

Answer 1

您自己写的方法，没有让J2每一次打印都+1啊！

Private Sub 打印_Click()
Sheet1.Select '选定将要打印的工作表
Sheet1.Cells(2,10)=0
for i =1 to 118
Sheet1.Cells(2,10)=Sheet?.Cells(2,10)+1
application.activesheet.printout copies:=2
next i
End Sub