Как да отпечатам долен колонтитул на последната страница само в 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 за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
