Hallo nochmal,
habe gerade bei mir einen Fehler festgestellt.
Mit dem folgenden Makro wird mein Druckbereich selektiert und
auch ausgedruckt.
Wenn ich jetzt aber eine Leerzeile einfüge, endet der Druckbereich da, deshalb
such ich nach einer Möglichkeit, die meinen Druckbereich kompl. selektiert aber
die Leerzeilen, fals vorhanden, überspringt.
Dim z As Long
Range("B10").Select
z = Range("C10").End(xlDown).Row
ActiveSheet.Range(Cells(10, 2), Cells(z, 7)).Select
With ActiveSheet.PageSetup
.PrintArea = Range(Cells(10, 2), Cells(z, 7)).Address
.PrintTitleRows = "$2:$9"
.CenterHorizontally = True
.Orientation = xlPortrait ' für Hochformat
.Zoom = False
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
gruß Kurt P