Page Setup
28.07.2003 15:01:15
Jan
eine kurze, wahrscheinlich einfache Frage:
Weiß jemand, wie man eine variable Region als Print Area festlegen kann? Habs mit untenstehendem Code versucht, was aber nicht funktioniert.
Bin für jede Hilfe dankbar.
Gruß,
Jan
Range("A7").Select
Dim Punkt1 As Range
Set Punkt1 = Activecell
Selection.End(xlDown).Select
Activecell.Offset(0, 10).Select
Dim Punkt2 As Range
Set Punkt2 = Activecell
Range(Punkt1, Punkt2).Select
Dim Zielregion As Range
Set Zielregion = Activecell
ActiveSheet.PageSetup.PrintArea = Zielregion
With ActiveSheet.PageSetup
.PrintTitleRows = "$7:$7"
End With
End Sub