Cum să imprimați subsolul pe ultima pagină numai în Excel?
Implicit, cu încorporat Antet și subsol caracteristică Excel, puteți adăuga cu ușurință subsoluri în partea de jos a fiecărei pagini tipărite într-o foaie de lucru. Dacă doriți să adăugați un subsol la ultima pagină tipărită doar într-o foaie de lucru, cum puteți face? Acest tutorial oferă un script VBA pentru a vă ajuta să îndepliniți această sarcină pas cu pas.
Imprimați subsolul pe ultima pagină numai cu codul VBA
Rulați următorul cod VBA pentru a imprima un subsol personalizat pe ultima pagină tipărită numai în Excel.
1. Deschideți foaia de lucru pe care doriți să o imprimați cu un subsol personalizat afișat numai pe ultima pagină tipărită.
2. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
3. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați următorul cod VBA în fișierul Modul (Cod) fereastră.
Cod VBA: imprimați subsolul numai pe ultima pagină
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
notițe: În cod, înlocuiți acest conținut "Introduceți informațiile de subsol aici" cu propriile informații de subsol.
4. apasă pe F5 tasta pentru a rula codul.
Apoi foaia de lucru activă va fi tipărită cu subsolul personalizat inserat numai pe ultima pagină tipărită.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!