Seitenwechsel beim drucken
chris
ich habe eine frage.Was macheich bei dem Code Falsch ?
es soll mir ein Sheet drucken auf 1 seite breit und 2 seiten hoch.
Der Seitenumbruch soll immer bei Zeile 61 sein.
Aber er macht mir den umbruch immer bei Zeile 66 warum ? was kann ich ändern ?
Vielen Dank an Alle
gruß Chris
Sub Stat_1_drucken_Daten()
'Daten drucken
Dim i As Integer
With ActiveSheet
With .PageSetup
.PrintArea = "$B$3:$F$118"
.PrintTitleRows = "$2:$2"
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 2
End With
i = 1
On Error Resume Next
Do While .HPageBreaks.Count > 0 And Err.Number = 0
.HPageBreaks(i).Delete
i = i + 1
Loop
On Error GoTo 0
.HPageBreaks.Add .Range("A61")
End With
End Sub