VBA Word打印时如何获取Copies变量实现页脚逐份编号？

Word的BeforePrint事件无法直接读取打印对话框中的Copies参数，因为该参数仅在对话框交互期间有效，关闭后不会暴露给事件处理逻辑。不过可以通过拦截打印流程、手动获取份数并循环打印每份的方式实现需求。

直接可用的VBA代码 #

将以下代码添加到Word的ThisDocument模块（或全局应用程序模块）：

Private Sub Document_BeforePrint(Cancel As Boolean)
    Dim printCopies As Integer
    Dim i As Integer
    Dim originalFooterText As String
    
    ' 取消默认打印操作，避免重复触发事件
    Cancel = True
    
    ' 调用Word打印对话框，获取用户设置的打印参数
    With Dialogs(wdDialogFilePrint)
        ' 显示对话框，用户点击确定则返回-1
        If .Show = -1 Then
            printCopies = .Copies
            ' 保存原页脚内容，用于打印后恢复
            originalFooterText = Me.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text
            
            ' 循环打印每份，动态更新页脚
            For i = 1 To printCopies
                ' 更新主页脚内容
                Me.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = "Print " & i & " of " & printCopies
                ' 打印当前文档，仅打印1份，避免触发BeforePrint循环
                Me.PrintOut Background:=False, Copies:=1
            Next i
            
            ' 打印完成后恢复原页脚
            Me.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = originalFooterText
        End If
    End With
End Sub

关键细节说明 #

• 拦截默认打印：通过设置Cancel = True阻止Word的默认打印流程，避免和自定义打印逻辑冲突。
• 获取打印份数：利用wdDialogFilePrint对话框获取用户设置的Copies值，确保和用户实际设置一致。
• 避免事件循环：每次打印仅指定Copies:=1，并设置Background:=False，防止再次触发BeforePrint事件导致死循环。
• 多节文档处理：如果文档包含多个节，需要遍历所有节的页脚，示例代码如下：

  Dim sec As Section
  For Each sec In Me.Sections
      sec.Footers(wdHeaderFooterPrimary).Range.Text = "Print " & i & " of " & printCopies
  Next sec
  

• 恢复原页脚：打印前保存原页脚文本，打印结束后还原，避免修改原文档内容。

替代方案（无VBA） #

如果不想编写代码，可以使用邮件合并功能：

1. 创建一个包含1到目标份数的序列数据源（比如Excel表格，列名为Number，值从1到需要的份数）。
2. 在Word文档的页脚插入«Number» of y（手动替换y为固定份数，或通过数据源传递动态值）。
3. 完成邮件合并后，生成所有文档并一次性打印。

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