Hi,
hab eine Lösung gefunden:
Private Sub CommandButton1_Click()
Dim s, F
s = 1
F = Cells(Rows.Count, s).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$" & F
ActiveSheet.PrintOut
End Sub
Danke noch mal für deine Hilfe.
Gruß
fedjo