如何在EXCEL连续打印时，使某一栏的序列号数值自动增加？

Question

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim N As String
If (Range("e1") = "") Then
Range("e1") = "单号No.1707500"
End If
If (IsNumeric(Right(Range("e1").Value, 6))) Then
N = Right(Range("e1").Value, 6) + 1
Range("e1") = "单号No." & Format(N, "1000000")
End If
End Sub
上面这个宏，可以实现自动增加数值，但每次运行只能打印一份。
应该怎样修改，使得我一次性打印若干张纸，并且E1栏里面的“1707500”自动往上增加1，变为1707501？

Answer 1

sub PPrint()
for i=1 to 20 '打印20份
ActiveSheet.PrintOut
s = ActiveSheet.Cells(6, 3)
s = Left(s, 5) & Format(Val(Mid(s, 6)) + 1, "000")
ActiveSheet.Cells(6, 3) = s
next
endsub