如何打印带有顺序页码的多份副本？

您是否尝试过打印一份工作表的多份副本，并且每份副本都带有顺序页码？这意味着要打印某张工作表的10份副本，并在第1份副本的单元格A1中填入001，第2份副本中填入002……，第10份副本中填入010。在Excel中，没有内置功能可以实现这一点，但在本文中，我将介绍一个宏代码，帮助您快速打印带有顺序页码的多份副本。

通过VBA代码打印带有不同编号的副本

通过VBA代码打印带有不同编号的副本

按照以下步骤使用VBA代码打印多份带有顺序编号的工作表副本。

1. 打开您要打印的工作表，然后按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到模块脚本中。参见截图：

VBA：打印带有顺序页码的副本。

Sub PrintCopiesWithNumbers()
'UpdatebyEntendoffice20161031
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = 1 To 10
        Range("A1").Value = "'00" & i
       ActiveSheet.PrintOut
    Next i
    Application.ScreenUpdating = True
    MsgBox "Total printed copies: " & (i - 1), vbInformation, "Kutools for Excel"
End Sub

注意：在代码中，A1 是您要放置序列号的单元格，1 To 10 表示打印10份副本，"'00" & I 是序列格式，您可以根据需要更改它们。

3. 按下 F5 键运行代码。将弹出一个对话框，确认将打印10份副本。点击 确定 关闭对话框后，每个打印的副本都将拥有自己的序列号。