重复打印相同内容(Doc档)的时候自动生成打印编号

昨天突然接到一个好久未联系的朋友电话，说是江湖救急，要打印一份单据，单据上有个号码要自动生成，如下图，最土的办法是打印完一张，手工改下号码，但这种方法估计碰到成百上千张时估计会疯掉

网上找了实现方法，用Office中的宏即可解决，我把宏里面的代码依此实际需求做了些调整并贴出来，关键代码做下注释，以方便有同样需要的人使用

Sub PrintCopies()

    Dim i As Long
    Dim lngStart
    Dim lngCount
    Dim rngDoc As Range

    '提示需要打印多少份
    lngCount = InputBox("Please enter the number of copies you want to print", "Please enter the number of copies you want to print", )

    If lngCount = "" Then
        Exit Sub
    End If

    '提示本次打印从哪个号码开始打印，默认为1
    lngStart = InputBox("Enter the starting number you want to print", "Enter the starting number you want to print", )
    If lngStart = "" Then
        Exit Sub
    End If

    For i = lngStart To lngCount

        '编号的位置,依实际状况不同，需要修改Start和End的值
        Set rngDoc = ActiveDocument.Range(Start:=, End:=)

        '数字不满3位时前面补0
        If i <  Then
            rngDoc.Text = "" & i
        End If

        If (i >= ) And (i < ) Then
            rngDoc.Text = "" & i
        End If

        If (i >= ) And (i < ) Then
            rngDoc.Text = i
        End If

        '调用打印
        Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=, PrintZoomRow:=, PrintZoomPaperWidth:=, _
        PrintZoomPaperHeight:=

        '未使用此方法，相当于在当前选择项上按Backspace键
        'Selection.TypeBackspace
    Next
End Sub