Gruppe
Druck
Bereich
Umbruch
Thema
Vertikalen Seitenumbruch verhindern
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