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

Nous pouvons facilement insérer le numéro 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 de la feuille de calcul avec des numéros de page en chiffres romains, comment pouvez-vous résoudre ce travail dans Excel?

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

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

Il n'y a pas de fonctionnalité intégrée qui vous permet d'imprimer les pages avec des numéros de page en chiffres romains, mais vous pouvez créer une macro pour faire l'affaire. Veuillez suivre les étapes suivantes:

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

2. Maintenez le ALT + F11 clés, et il ouvre le Fenêtre Microsoft Visual Basic pour Applications.

3Cliquez sur insérer > Moduleet collez le code suivant dans le 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. Puis appuyez F5 pour exécuter le code, et toutes les pages de la feuille de calcul active seront imprimées avec les numéros de page en chiffres romains.

Articles Liés:

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

Comment imprimer rapidement la page actuelle dans Excel?

Comment imprimer rapidement des commentaires dans Excel?

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