anbei mein Makro für den Druckbereich,
jetzt brauch ich aber direkt darunter noch den
Bereich von K2 bis K8
ich krieg es leider nicht hin.
Public Sub K_drucken()
ActiveSheet.Range("C2:F8").Select
ActiveSheet.PageSetup.PrintArea = "$C$2:$F$8"
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
grüße kurt k