word 按节打印宏，显示“类型不匹配”的问题

snipermx

现状是，一个word 文档有5个节，想把WORD文档按照节虚拟打印为5个分开的PDF文件【word文档同目录】，PDF的文件名是从1到5.

与是，自己找了下面的宏，但是运行显示“类型不匹配”，有高手帮我解决这个问题吗？

Sub 按节打印()
    '
    ' 按节打印 宏
    '
    '
    ActivePrinter = "Adobe PDF"
    For i = 1 To 5 Step 1
    Application.PrintOut FileName:=i, Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="s" & i, PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
    Next i
    End Sub

snipermx

自己顶一下