Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Vertikalen Seitenumbruch verhindern

Gruppe

Umbruch

Problem

Wie kann ich bei einem in der Länge mehrseitigem Blatt vertikale Seitenumbrüche verhindern? Bei Wertänderung in der letzten Spalte soll jeweils ein horizontaler Seitenumbruch eingefügt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub Drucken()
   Dim iCounter As Integer
   Application.ScreenUpdating = False
   With ActiveSheet
      .PageSetup.Zoom = 100
      ActiveWindow.View = xlPageBreakPreview
      Do While .VPageBreaks.Count > 0
         .PageSetup.Zoom = .PageSetup.Zoom - 1
         ActiveWindow.View = xlNormalView
         ActiveWindow.View = xlPageBreakPreview
      Loop
      iCounter = 2
      Do Until IsEmpty(Cells(iCounter, 12))
         If Cells(iCounter, 12).Value <> _
            Cells(iCounter - 1, 12).Value Then
            .HPageBreaks.Add Before:=Cells(iCounter, 12)
         End If
         iCounter = iCounter + 1
      Loop
      .PrintPreview
   End With
   ActiveWindow.View = xlNormalView
   Application.ScreenUpdating = True
End Sub