Hilfe bei Makro!
05.03.2008 11:19:17
markus473
Hallo zusammen,
ich möchte mit dem Makro für alle selektierten Blätter den Druckbereich festlegen, das funktioniert leider nur für das erste Blatt!
Wie muß ich das Makro ändern?
Kann mir da jemand helfen?
Danke und Gruß Markus
Sub DruckbereichFestlegen()
Dim lngI As Long
For lngI = 1 To ActiveWindow.SelectedSheets.Count
With ActiveWindow.SelectedSheets(lngI)
.PageSetup.PrintArea = "B1:H533"
.HPageBreaks.Add before:=Range("B48")
.HPageBreaks.Add before:=Range("B89")
.HPageBreaks.Add before:=Range("B132")
.HPageBreaks.Add before:=Range("B174")
.HPageBreaks.Add before:=Range("B217")
.HPageBreaks.Add before:=Range("B259")
.HPageBreaks.Add before:=Range("B302")
.HPageBreaks.Add before:=Range("B345")
.HPageBreaks.Add before:=Range("B387")
.HPageBreaks.Add before:=Range("B430")
.HPageBreaks.Add before:=Range("B472")
.HPageBreaks.Add before:=Range("B515")
End With
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$4"
.PrintTitleColumns = ""
Range("D8").Select
End With
Next lngI
ActiveSheet.PrintPreview 'Druckansicht
End Sub
Anzeige