Sub druck()
Dim a As Integer
zeile = Cells(1, Columns.Count).End(xlToLeft).Column
PageSetup.PrintArea = "a1:" & zeile & "76"
End Sub
Danke vorab.
Stephan
Sub druck()
Dim a As Integer
zeile = Cells(1, Columns.Count).End(xlToLeft).Column
PageSetup.PrintArea = "a1:" & zeile & "76"
End Sub
Sub tt()
Dim strSpalte As String
strSpalte = Replace(Cells(1, Columns.Count).End(xlToLeft).Address(0, 0), "1", "")
ActiveSheet.PageSetup.PrintArea = "a1:" & strSpalte & "76"
End Sub