Comment imprimer des pages avec des numéros de page en chiffres romains ?

Nous pouvons facilement insérer des numéros de page en chiffres romains dans Word, mais Excel ne prend pas en charge cette fonctionnalité pour les utilisateurs. Parfois, nous devons imprimer les pages d'une feuille de calcul avec des numéros de page en chiffres romains. Comment pourriez-vous résoudre ce problème dans Excel ?

Imprimer des pages avec des numéros de page en chiffres romains à l'aide d'un code VBA

Imprimer des pages avec des numéros de page en chiffres romains à l'aide d'un code VBA

Il n'y a aucune fonctionnalité intégrée qui vous permet d'imprimer des pages avec des numéros de page en chiffres romains, mais vous pouvez créer une macro pour réaliser cela. Veuillez suivre les étapes ci-dessous :

1. Ouvrez la feuille de calcul que vous souhaitez imprimer.

2. Maintenez les touches ALT + F11 enfoncées, et la fenêtre Microsoft Visual Basic for Applications s'ouvre.

3. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre du Module.

Code VBA : Imprimer des pages avec des numéros de page en chiffres romains

Sub PrintRoman()
'Update 20140924
Dim xCount As Integer
Dim xIndex As Integer
xCount = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For xIndex = 1 To xCount
    Application.ActiveSheet.PageSetup.CenterFooter = Application.Roman(xIndex)
    Application.ActiveSheet.PrintOut from:=xIndex, To:=xIndex
Next
Application.ActiveSheet.PageSetup.CenterFooter = ""
End Sub

4. Appuyez ensuite sur la touche F5 pour exécuter le code, et toutes les pages de la feuille de calcul active seront imprimées avec des numéros de page en chiffres romains.

Articles connexes :

Comment imprimer rapidement la première page de chaque feuille ?

Comment imprimer rapidement des commentaires dans Excel ?

Comment imprimer des données au centre de la page ?