Gruppe
Druck
Bereich
Umbruch
Thema
Vor dem Drucken an den Seitenumbrüchen die Seitennummer eintragen
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