Hoe voettekst alleen op de laatste pagina afdrukken in Excel?

Standaard kunt u met de ingebouwde functie "Koptekst & voettekst" van Excel eenvoudig voetteksten toevoegen aan de onderkant van elke afgedrukte pagina in een werkblad. Als u een voettekst alleen wilt toevoegen aan de laatste afgedrukte pagina in een werkblad, hoe doet u dat dan? Deze handleiding biedt een VBA-script om u stap voor stap te helpen bij het uitvoeren van deze taak.

Voettekst alleen op de laatste pagina afdrukken met VBA-code

Voer de volgende VBA-code uit om een aangepaste voettekst alleen op de laatste afgedrukte pagina in Excel af te drukken.

1. Open het werkblad dat u wilt afdrukken en stel een aangepaste voettekst in die alleen op de laatste pagina verschijnt.

2. Druk op de toetsen "Alt" + "F11" om het venster "Microsoft Visual Basic for Applications" te openen.

3. Klik in het venster "Microsoft Visual Basic for Applications" op "Invoegen" > "Module". Kopieer vervolgens de volgende VBA-code in het venster "Module (Code)".

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

Opmerking: Vervang in de code deze tekst "Typ hier uw voettekst informatie" door uw eigen voettekst informatie.

4. Druk op de toets "F5" om de code uit te voeren.

Het actieve werkblad wordt vervolgens afgedrukt met de aangepaste voettekst die alleen op de laatste afgedrukte pagina wordt ingevoegd.