ich habe einen Codefehler, welchen ich nicht sehe.
Kann jmd. einen behilflich sein:
Private Sub CommandButton3_Click()
Dim rngDruck As Range
Set rngDruck = ThisWorkbook.ActiveSheet.UsedRange
Set rngDruck = Range(rngDruck.Cells(1, 1), rngDruck.Cells(rngDruck.Rows.Count, 8))
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PrintArea = rngDruck
End With
End Sub
im Fettgedruckten Bereich kommt der Fehler.VG Berndt