VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Vor dem Drucken an den Seitenumbrüchen die Seitennummer eintragen

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

    


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