Druckbereich
08.11.2016 14:40:13
Berndt
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
VG Berndt
Anzeige