Wie drucke ich die Fußzeile nur auf der letzten Seite in Excel?
Standardmäßig mit dem eingebauten Kopfzeile Fußzeile Funktion von Excel können Sie einfach Fußzeilen unten auf jeder gedruckten Seite in einem Arbeitsblatt hinzufügen. Wenn Sie nur auf der letzten gedruckten Seite in einem Arbeitsblatt eine Fußzeile hinzufügen möchten, wie können Sie das tun? Dieses Lernprogramm enthält ein VBA-Skript, mit dem Sie diese Aufgabe Schritt für Schritt ausführen können.
Fußzeile auf der letzten Seite nur mit VBA-Code drucken
Bitte führen Sie den folgenden VBA-Code aus, um eine benutzerdefinierte Fußzeile nur in Excel auf der letzten gedruckten Seite zu drucken.
1. Öffnen Sie das Arbeitsblatt, das Sie mit einer benutzerdefinierten Fußzeile drucken möchten, die nur auf der letzten gedruckten Seite angezeigt wird.
2. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
3. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in die Modul (Code) Fenster.
VBA-Code: Fußzeile nur auf der letzten 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
Note: Im Code bitte diesen Inhalt ersetzen "Geben Sie hier Ihre Fußzeileninformationen ein" mit Ihren eigenen Fußzeileninformationen.
4. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes.
Dann wird das aktive Arbeitsblatt gedruckt, wobei die benutzerdefinierte Fußzeile nur auf der letzten gedruckten Seite 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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!