求大神帮忙，弄个连续机打发票

huifei0129

1.使用“发票打印机”来进行连续打印。

2.发票模板格式在“Sheet1”已经设置好了

3.数据庞大，Sheet2只列举部分

求助，麻烦大神帮忙写个程序：

A.按下打印按钮后，在跳出对话框中分别输入需要打印的开始序号和结束序号。

B.通过开始打印序号以及终止打印序号来取出需连续打印的Sheet2数据，并设置连续按钮进行自动打印。

C.附上大致的思路程序，帮忙修改下，并弄个打印按钮。
以上非常非常感谢！

Sub 打印数据()

Application.ScreenUpdating = False

Dim k As Integer, s As Integer, j As Integer

On Error Resume Next

s =Sheet1.Range("a1").CurrentRegion.Rows.Count

k = Application.InputBox("请输入需要印的开始序号：", "打印系统", Format(1,"General Number"))

j = Application.InputBox("请输入需要印的开始序号：", "打印系统", Format(10,"General Number"))

If k < 1 Or j > s - 2 Or k > j ThenMsgBox "亲！你的输入的数据有误！":GoTo 200

For i = k + 2 To j + 2

Sheet2.Range("i3") =Sheet1.Cells(i, 2)

   With Sheet2

            .PageSetup.PrintArea = .Range("a2:t10").Address '设置打印区域

            '.PrintPreview   '打印预览

          .PrintOut '打印输出

    End With   

Next i

200:

Application.ScreenUpdating = True

End Sub