Hvordan udskriver man kun sidefod på sidste side i Excel?
Som standard med den indbyggede Sidehoved og sidefod funktion i Excel, kan du nemt tilføje sidefødder nederst på hver udskrevne side i et regneark. Hvis du kun vil tilføje en sidefod til den sidst udskrevne side i et regneark, hvordan kan du så gøre det? Denne vejledning indeholder et VBA-script, der hjælper dig med at udføre denne opgave trin for trin.
Udskriv kun sidefod på sidste side med VBA-kode
Kør venligst følgende VBA-kode for kun at udskrive en brugerdefineret sidefod på den sidst udskrevne side i Excel.
1. Åbn det regneark, du vil udskrive, med en brugerdefineret sidefod, der kun vises på den sidst udskrevne side.
2. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
3. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier derefter følgende VBA-kode i Modul (kode) vindue.
VBA-kode: Udskriv kun sidefod på sidste side
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
Bemærk: I koden skal du erstatte dette indhold "Indtast dine sidefodoplysninger her" med dine egne sidefodoplysninger.
4. Tryk på F5 nøgle for at køre koden.
Derefter vil det aktive regneark blive udskrevet med den brugerdefinerede sidefod kun indsat på den sidst udskrevne side.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!