急急急!!! 流水号打印问题 请各位大神帮忙

lnctsr

Sub 流水号打印()
On Error GoTo error
Dim m&, k&
   m = InputBox("请输入打印份数。", "打印份数", "3")
   k = InputBox("请输入起始流水号。", "起始流水号", "1")
If MsgBox("共打印" & m & "份。起始流水号是：" & k & "。确定打印吗？", vbYesNo) <> vbYes Then Exit Sub
   For i = k To k + m - 1
      [B3] = Format(Date, "yyyymmdd") & Format(i * 2 - 1, "0000"): [D3] = Format(Date, "yyyymmdd") & Format(i * 2, "0000")
      ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="TSC TTP-247"
   Next
error:
Exit Sub
End Sub

现在问题是起始流水号是10的话, 我打印出来的是从19开始而不是从11开始,请帮忙改一下这个代码.
从1开始打印是倒是对的

lele6809

i * 2 - 1，i=10的话可不就是19吗

lnctsr

这个我也知道,因为本就是小白,这段代码也是本论坛找到的,使用后发现有这个问题,请帮忙看一下怎么改能正常

lnctsr

Sub 流水号打印()
On Error GoTo error
Dim m&, k&
   m = InputBox("请输入打印份数。", "打印份数", "3")
   k = InputBox("请输入起始流水号。", "起始流水号", "1")
If MsgBox("共打印" & m & "份。起始流水号是：" & k & "。确定打印吗？", vbYesNo) <> vbYes Then Exit Sub
   For i = k To k + m - 1
      [B3] = Format(Date, "yyyymmdd") & Format(i * 2 -k, "0000"): [D3] = Format(Date, "yyyymmdd") & Format(i * 2-k+1, "0000")
      ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="TSC TTP-247"
   Next
error:
Exit Sub
End Sub
把那里改一下就好了,把前面的i * 2-1改成 i * 2-k,后面的 i * 2改成i * 2-k+1就好了.