Thema: Vor dem Drucken an den Seitenumbrüchen die Seitennummer eintragen

Home

Gruppe

Druck

Problem

In den jeweiligen Zellen der horizontalen Seitenwechsel sollen die Seitenzahlen vor dem Drucken eingetragen und danach gelöscht werden.

Lösung

Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub DruckSeiten()
   Dim iRow As Integer, iRowL As Integer, iPage As Integer
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   ActiveSheet.PageSetup.PrintArea = Range("A1:B" & iRowL).Address
   Rows(iRowL).Select
   ActiveSheet.DisplayAutomaticPageBreaks = True
   Range("B1").Value = "Seite 1"
   For iPage = 1 To ActiveSheet.HPageBreaks.Count
      ActiveSheet.HPageBreaks(iPage) _
         .Location.Offset(0, 1).Value = "Seite " & iPage + 1
   Next iPage
   ActiveSheet.PrintPreview
   Columns("B").ClearContents
   Range("A1").Select
End Sub

Beiträge aus dem Excel-Forum zu den Themen Druck und Umbruch

PDF Drucken VBA	Generierung von Tabs per VBA + Sammeldruck
Akt. Datum und Uhrzeit am gedruckten Dokument	UserForm im Querformat drucken
zoom auf Druckbereichsbreite anpassen	Bilder in Registerblatt drucken
PDF eventuell Ausdruck sperren?	Zeilenumbruch
Druckprobleme....	Zeilenumbruch im Kommentar
Tabellenblätter Ausdruck gruppieren	Drucken mit VBA
Umbruch?	Bestimmte Zeilen/ Spalten nicht mitdrucken
Gescheiter Umbruch	Diagramme DIN A3 drucken
Automatischen Andruck auf Standartdrucker erzeugen	Druckerauswahl
Blätter autom. ein-/ausblenden + drucken	Kann bestimmten Drucker nicht auswählen
Drucker nicht vorhanden, dann Meldung	Arbeitsmappendruck
Abfrage ob Druckbereich zu groß für Seitenbreite	Druck PDF-Datei
Fehler 1004 beim Druck einer PDF - mit Screenshot	Zeilenumbruch im VBA Code
Druckeinstellungen für mehrere Drucke übernehmen	Grafik drucken
UserForm Caption mit Textumbruch?!	Mit Change() o. Calculate() Filtern und Drucken
Druckparameter an neue Datei	Button zum Ausdrucken
Druckparameter an Datei mitgeben	Makro für ereignisabh. Druck verschiedener Seiten
Excel Seriendruck im PDF-Format	Per VBA drucken - Adobe PDF on ne0x
Drucken, nur wenn Bedingung erfüllt ist!	variablen Druckbereich definieren
Automatischer Seitenumbruch	Mit Makro Virtuelle Drucker (PDF) ansteuern
Standarddrucker festsetzen??	Wann zuletzt ausgedruckt
Excel druckt keine Bilder!	sql Ausdruck like
Excel Druckmakro - VBA Experten gesucht	CommandButton nicht mit ausdrucken
Druckvorschau	Druckerdialog
mehrere Sheets farbig ausdrucken, weshalb ...	Laufzeitfehler Nr. 9 bei Druckerauswahl