Comment imprimer plusieurs copies avec des numéros de page de séquence?

Avez-vous déjà essayé d'imprimer plusieurs copies d'une feuille avec des numéros de page séquentiels? Cela signifie imprimer 10 copies d'une feuille et remplir la cellule A1 dans la 1ère copie avec 001, dans la 2ème copie avec 002… et dans la 10ème copie avec 010. Dans Excel, aucune fonctionnalité intégrée ne peut résoudre ce travail, mais dans cet article, je présente un code macro pour vous aider à imprimer rapidement plusieurs copies avec numéro de page de séquence dans Excel.

Imprimer des copies avec différents numéros par code VBA

Imprimer des copies avec différents numéros par code VBA

Suivez les étapes ci-dessous pour imprimer plusieurs copies d'une feuille avec des numéros de séquence par code VBA

1. Activez la feuille à imprimer et appuyez sur les touches Alt + F11 pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module, et collez le code ci-dessous dans le Module scénario. Voir la capture d'écran:

VBA: Imprimez des copies avec des numéros de page de séquence.

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 "Totally print" & (i - 1) &"copies", vbInformation, "Kutools for Excel"
End Sub

Notes: dans le code, A1 est la cellule dans laquelle vous souhaitez placer le numéro de séquence, 1 Pour 10 indique d'imprimer 10 copies, et "'00" et moi est le format de séquence, vous pouvez les modifier selon vos besoins.

3. presse F5 pour exécuter le code, et une boîte de dialogue apparaît pour vous rappeler que vous imprimez 10 copies. Cliquez sur OK pour fermer la boîte de dialogue, chaque copie imprimée a son propre numéro de séquence.