Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Vor dem Drucken an den Seitenumbrüchen die Seitennummer eintragen

Gruppe

Umbruch

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