Нумеровка колонтитула в при печати многочисленных копий таблицы

Sub main()
Dim i As Integer, n As Integer
Dim tmp As String
n = 5
For i = 1 To n
tmp = CStr(i)
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=tmp
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Application.PrintOut fileName:="", Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
Next i
End Sub

Sub PrintDoc() 
Dim Nach As Integer
Dim Konec As Integer
Konec = InputBox("Введите количество копий")
For Nach = 1 To Konec Step 1
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range = Nach
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActiveDocument.PrintOut Copies:=1
Next Nach
End Sub