Как распечатать нижний колонтитул на последней странице только в Excel?
По умолчанию со встроенным Верхний и нижний колонтитулы функции Excel, вы можете легко добавлять нижние колонтитулы внизу каждой печатной страницы рабочего листа. Если вы хотите добавить нижний колонтитул к последней напечатанной странице только на рабочем листе, как вы можете это сделать? В этом руководстве представлен сценарий VBA, который поможет вам выполнить эту задачу шаг за шагом.
Печатать нижний колонтитул на последней странице только с кодом VBA
Запустите следующий код VBA, чтобы напечатать пользовательский нижний колонтитул на последней напечатанной странице только в Excel.
1. Откройте рабочий лист, который вы хотите напечатать, с настраиваемым нижним колонтитулом, отображаемым только на последней напечатанной странице.
2. нажмите другой + 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 ключ для запуска кода.
Затем активный рабочий лист будет напечатан со вставкой пользовательского нижнего колонтитула только на последней напечатанной странице.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!