VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeilenumbrüchen über VBA setzen

Gruppe

Druck

Bereich

Umbruch

Thema

Zeilenumbrüchen über VBA setzen

Problem

Manuelle Zeilenumbrüchen werden gesetzt, bereits vorhandene entfernt.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.




StandardModule: Modul1

Sub SetPageBreaks()
   Dim iRow As Integer, iCounter As Integer
   iRow = 56
   With ActiveSheet
      .DisplayAutomaticPageBreaks = True
      For iCounter = .HPageBreaks.Count To 1 Step -1
         If .HPageBreaks(iCounter).Type = xlPageBreakManual Then
            .HPageBreaks(iCounter).Delete
         End If
      Next iCounter
      Do While iRow < Range("A1").CurrentRegion.Rows.Count
         .HPageBreaks.Add Rows(iRow)
         iRow = iRow + 50
      Loop
      .PrintPreview
   End With
End Sub

    


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