Як друкувати колонтитул на останній сторінці тільки в Excel?

За замовчуванням із вбудованим Верхній і нижній колонтитул Функція Excel, ви можете легко додавати нижні колонтитули внизу кожної друкованої сторінки на аркуші. Якщо ви хочете додати нижній колонтитул лише до останньої надрукованої сторінки аркуша, як це зробити? Цей посібник містить сценарій VBA, який допоможе вам виконати це завдання крок за кроком.

Друкувати нижній колонтитул на останній сторінці лише з кодом VBA

Запустіть наведений нижче код VBA, щоб надрукувати власний нижній колонтитул на останній надрукованій сторінці лише в Excel.

1. Відкрийте робочий аркуш, який ви хочете надрукувати, з власним нижнім колонтитулом, який відображається лише на останній надрукованій сторінці.

2 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

3 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте наступний код VBA в Модуль (Код) вікна.

Код VBA: друкувати нижній колонтитул лише на останній сторінці

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

примітки: У коді замініть цей вміст "Введіть тут інформацію про нижній колонтитул" з інформацією про ваш нижній колонтитул.

4 Натисніть кнопку F5 клавіша для запуску коду.

Тоді активний робочий аркуш буде надруковано зі вставленням спеціального нижнього колонтитула лише на останній надрукованій сторінці.