habe folgendes Makro für das Ausdrucken ein Tabelle erstellt.
Makro:
Dim z As Long
z = Range("A3").End(xlDown).Row
ActiveSheet.Range(Cells(3, 1), Cells(z, 7 + 7)).Select
With ActiveSheet.PageSetup
.PrintArea = Range(Cells(3, 1), Cells(z, 7 + 7)) & _
.Range(Cells(4, 15), Cells(41, 30)).Address
' .CenterHorizontally = False
' .CenterVertically = False
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
leider funktioniert es nicht.
Ich möchte noch die 2. Seite ausdrucken .Range(Cells(4, 15), Cells(41, 30)).Address
gruß Walter