Как печатать нижний колонтитул только на последней странице в Excel?

По умолчанию, с помощью встроенной функции "Верхний и нижний колонтитулы" в Excel, вы можете легко добавлять нижние колонтитулы внизу каждой распечатанной страницы рабочего листа. Если вы хотите добавить нижний колонтитул только на последнюю распечатанную страницу рабочего листа, как это сделать? В этом руководстве представлен скрипт VBA, который поможет вам выполнить эту задачу пошагово.

Печать нижнего колонтитула только на последней странице с помощью кода VBA

Пожалуйста, запустите следующий код VBA, чтобы напечатать пользовательский нижний колонтитул только на последней распечатанной странице в Excel.

1. Откройте рабочий лист, который вы хотите распечатать, и установите пользовательский нижний колонтитул, чтобы он появился только на последней странице.

2. Нажмите клавиши "Alt" + "F11", чтобы открыть окно "Microsoft Visual Basic для приложений".

3. В окне "Microsoft Visual Basic для приложений" нажмите "Вставить" → "Модуль". Затем скопируйте следующий код 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", чтобы запустить код.

Затем активный рабочий лист будет напечатан с пользовательским нижним колонтитулом, вставленным только на последней распечатанной странице.