Gruppe
Druck
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.
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