habe folgendes Aufgezeichnet:
Range("C1:K20").Select
ActiveSheet.PageSetup.PrintArea = "$C$1:$K$20"
ActiveWindow.SelectedSheets.PrintPreview
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = "$A:$B"
End With
ActiveSheet.PageSetup.PrintArea = "$C$1:$K$20"
With ActiveSheet.PageSetup
.RightFooter = "&8&F &""Arial,Fett""Mappe:&""Arial,Standard"" &A "
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0.15748031496063)
.TopMargin = Application.InchesToPoints(0.26)
.BottomMargin = Application.InchesToPoints(0.354330708661417)
.HeaderMargin = Application.InchesToPoints(0.17)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Zoom = 90
End With
Ich möchte aber die Spalten nach Rechts soweit ausdrucken, bis in der Zeile 1 "Ende" steht.
mfg Walter