Hoe voettekst op de laatste pagina alleen in Excel afdrukken?
Standaard met de ingebouwde Kop- en voettekst functie van Excel, kunt u gemakkelijk voetteksten toevoegen onderaan elke afgedrukte pagina in een werkblad. Als u alleen een voettekst wilt toevoegen aan de laatst afgedrukte pagina in een werkblad, hoe kunt u dat dan doen? Deze zelfstudie biedt een VBA-script om u te helpen deze taak stap voor stap uit te voeren.
Voettekst alleen op de laatste pagina afdrukken met VBA-code
Voer de volgende VBA-code uit om een aangepaste voettekst af te drukken op de laatst afgedrukte pagina, alleen in Excel.
1. Open het werkblad dat u wilt afdrukken met een aangepaste voettekst die alleen op de laatst afgedrukte pagina wordt weergegeven.
2. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
3. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens de volgende VBA-code in het Module (code) venster.
VBA-code: voettekst alleen op de laatste pagina afdrukken
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
Note: Vervang deze inhoud in de code "Typ hier uw voettekstinformatie" met uw eigen voettekstinformatie.
4. druk de F5 sleutel om de code uit te voeren.
Vervolgens wordt het actieve werkblad afgedrukt met de aangepaste voettekst die alleen op de laatst afgedrukte pagina wordt ingevoegd.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
