如何为Excel VBA生成的合并多工作表PDF添加匹配页码？

针对你遇到的问题——将多个Excel工作表合并导出为PDF后无法添加连续页码，这里有两种实用的解决方案，你可以根据自己的需求选择：

方法一：先给Excel工作表设置连续页码，再导出PDF #

这种方法不需要额外软件，直接通过Excel VBA调整每个工作表的页码起始值，导出后PDF的页码就是连续的。

修改后的完整代码 #

Sub PrintFSWithPageNumbers()
    Dim ws As Worksheet
    Dim selectedSheets As Variant
    Dim originalStartPage As Long
    Dim originalFooter As String
    Dim currentStartPage As Long
    Dim totalPages As Long
    Dim sheetPageCount As Long
    Dim tempPath As String
    
    ' 1. 定义要导出的工作表数组
    selectedSheets = Array("1. Front Sheet", "2. Page", "3. Page", "4. Page", "5. Page", "6. Page")
    
    ' 2. 初始化变量，设置临时PDF路径（你可以改成自己的目标路径）
    currentStartPage = 1
    tempPath = ThisWorkbook.Path & "\Merged_Temp.pdf"
    
    ' 3. 遍历每个工作表，保存原有设置并设置连续页码
    For Each ws In ThisWorkbook.Sheets(selectedSheets)
        ' 保存原有起始页码和页脚设置
        originalStartPage = ws.PageSetup.FirstPageNumber
        originalFooter = ws.PageSetup.CenterFooter
        
        ' 计算当前工作表的打印页数（用Excel4宏确保准确性）
        sheetPageCount = ExecuteExcel4Macro("GET.DOCUMENT(50,""" & ws.Name & """)")
        
        ' 设置当前工作表的起始页码
        ws.PageSetup.FirstPageNumber = currentStartPage
        
        ' 更新起始页码和总页数统计
        currentStartPage = currentStartPage + sheetPageCount
        totalPages = totalPages + sheetPageCount
    Next ws
    
    ' 4. 重新遍历，更新总页码显示（页脚格式可自定义）
    For Each ws In ThisWorkbook.Sheets(selectedSheets)
        ws.PageSetup.CenterFooter = "Page &[Page] of " & totalPages
    Next ws
    
    ' 5. 选中所有目标工作表并导出为PDF
    ThisWorkbook.Sheets(selectedSheets).Select
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=tempPath, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    
    ' 6. 恢复每个工作表的原有设置，避免影响原文件排版
    currentStartPage = 1
    For Each ws In ThisWorkbook.Sheets(selectedSheets)
        ws.PageSetup.FirstPageNumber = originalStartPage
        ws.PageSetup.CenterFooter = originalFooter
        currentStartPage = currentStartPage + ExecuteExcel4Macro("GET.DOCUMENT(50,""" & ws.Name & """)")
    Next ws
    
    MsgBox "PDF已生成，页码已添加！路径：" & tempPath, vbInformation
End Sub

代码说明 #

• 保存原有设置：导出后自动恢复工作表原本的页码和页脚配置，不会破坏原文件排版。
• 准确计算页数：使用ExecuteExcel4Macro获取打印页数，比直接调用PageSetup.Pages.Count更可靠，适配有分页符或自定义打印区域的工作表。
• 连续页码逻辑：通过FirstPageNumber指定每个工作表的起始页码，确保整个PDF的页码连续递增。
• 自定义页码格式：你可以修改CenterFooter的内容，比如改成左对齐页眉、添加公司logo等，只需调整PageSetup对应的属性即可。

方法二：导出PDF后用Acrobat VBA添加页码 #

如果你已经安装了Adobe Acrobat Pro，可以用它的API直接给生成的PDF添加页码，这种方法不需要修改Excel工作表的任何设置。

步骤和代码 #

1. 先按你原来的代码导出无页码的PDF文件。
2. 打开VBA编辑器，点击「工具」→「引用」，勾选Adobe Acrobat xx.x Type Library（xx.x是你的Acrobat版本号）。
3. 运行以下代码添加页码：

Sub AddPageNumbersToPDF()
    Dim acroApp As Acrobat.AcroApp
    Dim acroPDDoc As Acrobat.AcroPDDoc
    Dim acroPage As Acrobat.AcroPDPage
    Dim acroTextAnnot As Acrobat.AcroPDAnnot
    Dim pageNum As Integer
    Dim totalPages As Integer
    Dim pdfPath As String
    Dim outputPath As String
    
    ' 设置PDF路径（和你导出的无页码PDF路径一致）
    pdfPath = ThisWorkbook.Path & "\Merged.pdf"
    outputPath = ThisWorkbook.Path & "\Merged_With_Pages.pdf"
    
    ' 初始化Acrobat对象
    Set acroApp = CreateObject("AcroExch.App")
    Set acroPDDoc = CreateObject("AcroExch.PDDoc")
    
    ' 打开PDF文件
    If acroPDDoc.Open(pdfPath) Then
        totalPages = acroPDDoc.GetNumPages()
        
        ' 遍历每一页添加页码
        For pageNum = 0 To totalPages - 1
            Set acroPage = acroPDDoc.AcquirePage(pageNum)
            
            ' 创建文本注释作为页码，调整数组参数可改变位置（x1,y1,x2,y2）
            Set acroTextAnnot = acroPage.CreateAnnot()
            acroTextAnnot.SetRect Array(500, 20, 550, 40) ' 右下角位置示例
            acroTextAnnot.SetContents "Page " & (pageNum + 1) & " of " & totalPages
            
            ' 自定义页码样式（可选）
            acroTextAnnot.SetProps "FontSize", 10
            acroTextAnnot.SetProps "TextColor", Array(0, 0, 0) ' 黑色字体
        Next pageNum
        
        ' 保存带页码的PDF
        acroPDDoc.Save 1, outputPath ' 1 = 另存为新文件
        acroPDDoc.Close
        acroApp.Exit
        
        MsgBox "页码已添加！新PDF路径：" & outputPath, vbInformation
    Else
        MsgBox "无法打开PDF文件！", vbExclamation
        acroApp.Exit
    End If
    
    ' 释放对象，避免内存占用
    Set acroTextAnnot = Nothing
    Set acroPage = Nothing
    Set acroPDDoc = Nothing
    Set acroApp = Nothing
End Sub

注意事项 #

• 必须安装Adobe Acrobat Pro（Reader版本不支持API操作）。
• 引用库时要选择对应版本的Acrobat类型库，否则代码会报错。
• 可以调整SetRect的四个数值来改变页码的位置，比如移到页眉左侧、页面中间等。

内容的提问来源于stack exchange，提问作者ErikSlui