Comment imprimer le pied de page sur la dernière page uniquement dans Excel ?
Par défaut, avec la fonction intégrée En-tête et pied de page fonctionnalité d'Excel, vous pouvez facilement ajouter des pieds de page au bas de chaque page imprimée dans une feuille de calcul. Si vous souhaitez ajouter un pied de page à la dernière page imprimée uniquement dans une feuille de calcul, comment pouvez-vous faire ? Ce didacticiel fournit un script VBA pour vous aider à accomplir cette tâche étape par étape.
Imprimer le pied de page sur la dernière page uniquement avec le code VBA
Veuillez exécuter le code VBA suivant pour imprimer un pied de page personnalisé sur la dernière page imprimée uniquement dans Excel.
1. Ouvrez la feuille de calcul que vous souhaitez imprimer avec un pied de page personnalisé affiché uniquement sur la dernière page imprimée.
2. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
3. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Ensuite, copiez le code VBA suivant dans le Module (Code) fenêtre.
Code VBA : imprimer le pied de page sur la dernière page uniquement
Sub SetFooterOnLastPage()
'Updated by Extendoffice 20221024
Dim xCount As Long
Dim xWSh
xCount = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
Set xWSh = Application.ActiveSheet
With Application.ActiveSheet
.PageSetup.RightFooter = ""
If xCount > 1 Then
.PrintOut From:=1, To:=xCount - 1
End If
.PageSetup.RightFooter = "Type your footer information here"
.PrintOut From:=xCount, To:=xCount
End With
End Sub
Notes: Dans le code, merci de remplacer ce contenu "Tapez vos informations de pied de page ici" avec vos propres informations de pied de page.
4. appuie sur le F5 clé pour exécuter le code.
Ensuite, la feuille de calcul active sera imprimée avec le pied de page personnalisé inséré uniquement sur la dernière page imprimée.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
