kann mir bitte jemand sagen, was ich verändern muß, damit die Ausgabe im Querformat erscheint.
Hier der Makro (stammt aus dem Forum):
Sub Druck()
Application.ScreenUpdating = False
ActiveSheet.Unprotect "mix7781"
Range("B8:B110").Select
ActiveWindow.ScrollRow = 9
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=1
Selection.AutoFilter
Range("A2").Select
ActiveSheet.Protect "mix7781"
End Sub
Vielen Dank und liebe Grüße
Gisela