ich habe über das Forum mal dies in mein Makro eingearbeitet: Dim endCell As Range
On Error Resume Next
Set endCell = Rows(2).Find("ww1")
If endCell Is Nothing Then
MsgBox "Zelle mit ""ww1"" wurde nicht gefunden in Zeile 4", vbInformation + vbOKOnly, "Fehler"
Exit Sub
End If
On Error GoTo 0
With ActiveSheet.PageSetup
.PrintArea = "$C$1:$K$1" & endCell.Column
.PrintTitleRows = ""
.PrintTitleColumns = "$A:$B"
.RightFooter = "&8&F &""Arial,Fett""Mappe:&""Arial,Standard"" &A "
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Zoom = 90
End With
leider wird bei mir nur bis Spalte K gedruckt und nicht bis zum Ende, dann sollte auch nur
jeweils bis Zeile 37 gedruckt werden.
Was hab ich den Falsch gemacht ?
mfg Walter