Wie druckt man eine Fußzeile nur auf der letzten Seite in Excel?
Standardmäßig können Sie mithilfe der integrierten Funktion „Kopf- und Fußzeile“ in Excel problemlos Fußzeilen am unteren Rand jeder gedruckten Seite eines Arbeitsblatts hinzufügen. Doch wie fügen Sie eine Fußzeile ausschließlich auf der letzten gedruckten Seite eines Arbeitsblatts ein? In diesem Tutorial erhalten Sie ein VBA-Skript, das Ihnen Schritt für Schritt dabei hilft, diese Aufgabe zu meistern.
Fußzeile nur auf der Letzte Seite mit VBA-Code drucken
Führen Sie den folgenden VBA-Code aus, um eine benutzerdefinierte Fußzeile nur auf der letzten gedruckten Seite in Excel zu drucken.
1. Öffnen Sie das Arbeitsblatt, das Sie drucken möchten, und legen Sie eine benutzerdefinierte Fußzeile fest, die ausschließlich auf der letzten Seite erscheinen soll.
2. Drücken Sie „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
3. Klicken Sie im Fenster „Microsoft Visual Basic for Applications“ auf „Einfügen“ > „Modul“ und fügen Sie anschließend den folgenden VBA-Code in das Fenster „Modul (Code)“ ein.
VBA-Code: Fußzeile nur auf der Letzte Seite drucken
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
Hinweis: Ersetzen Sie im Code den Text „Type your footer information here“ durch Ihre eigenen Fußzeileninformationen.
4. Drücken Sie die Taste „F5“, um den Code auszuführen.
Anschließend wird das aktive Arbeitsblatt mit der benutzerdefinierten Fußzeile gedruckt, die ausschließlich auf der letzten Seite des Drucks eingefügt wird.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins