Jak vytisknout zápatí na poslední stránce pouze v Excelu?

Ve výchozím nastavení s vestavěným Záhlaví zápatí funkce Excelu, můžete snadno přidat zápatí na konec každé vytištěné stránky v listu. Pokud chcete přidat zápatí k poslední vytištěné stránce pouze v listu, jak to můžete udělat? Tento výukový program poskytuje skript VBA, který vám pomůže provést tento úkol krok za krokem.

Tisknout zápatí na poslední stránce pouze s kódem VBA

Chcete-li vytisknout vlastní zápatí na poslední vytištěnou stránku pouze v aplikaci Excel, spusťte následující kód VBA.

1. Otevřete list, který chcete vytisknout, s vlastním zápatím zobrazeným pouze na poslední vytištěné stránce.

2. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

3. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte následující kód VBA do souboru Modul (kód) okno.

Kód VBA: Tisknout zápatí pouze na poslední stránku

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

Pozor: V kódu prosím nahraďte tento obsah "Sem zadejte informace o zápatí“ s informacemi v zápatí.

4. zmáčkni F5 klíč ke spuštění kódu.

Poté bude aktivní list vytištěn s vlastním zápatím vloženým pouze na poslední vytištěnou stránku.