Wie druckt man nur die letzte Seite eines Arbeitsblatts in Excel?
In vielen Fällen müssen Sie möglicherweise nur die letzte Seite eines Arbeitsblatts in Excel drucken. Wie geht das? Dieser Artikel bietet eine Lösung, um dies zu erreichen.
Nur die letzte Seite eines Arbeitsblatts mit VBA-Code drucken
Nur die letzte Seite eines Arbeitsblatts mit VBA-Code drucken
Sie können den folgenden VBA-Code ausführen, um nur die letzte Seite eines Arbeitsblatts in Excel zu drucken. Bitte gehen Sie wie folgt vor.
1. Öffnen Sie das Arbeitsblatt, von dem Sie nur die letzte Seite drucken möchten, und drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Nur die letzte Seite eines Arbeitsblatts drucken
Sub PrintLastPage()
Dim xPages As Long
xPages = ActiveSheet.PageSetup.Pages.Count
If xPages > 0 Then ActiveSheet.PrintOut from:=xPages, to:=xPages, preview:=True
End Sub
3. Drücken Sie die Taste F5, um den Code auszuführen, dann wird die letzte Seite des aktuellen Arbeitsblatts im sich öffnenden Druckvorschau-Dialogfeld angezeigt. Klicken Sie bitte auf die Schaltfläche Drucken, um den Druckvorgang zu starten. Siehe Screenshot:
Die besten Office-Produktivitätstools
Steigern Sie Ihre Excel-Kompetenz mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen, um Ihre 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 Reiter-Oberfläche in Office und macht Ihre Arbeit so viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen in Reitern in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Reitern desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um50 % und reduziert täglich Hunderte von Mausklicks!