Autofilter, Ergebnis drucken

Question

Hallo,
wie kann ich das Ergebnis eines Autofilters (sichtbare Daten) mit einem Makro ausdrucken?
Mein Makro funktioniert so nicht, was muß ich ändern?

Gruß
fedjo

Sub Auswahl_Drucken()
Dim s%, e!, z!
'Spalte A:
s = 1
'Letzte Zeile mit Eintrag suchen:
e = Cells(Rows.Count, s).End(xlUp).Row
'Druckbereich festlegen:
ActiveSheet.PageSetup.PrintArea = "$A$4:$G$" & e
'Drucken:
ActiveSheet.PrintOut
'Druckbereich aufheben:
ActiveSheet.PageSetup.PrintArea = ""
If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter , Field:=1
Worksheets("V1").ScrollArea = "G4:G1500"
End Sub

Answer 1

Hallo Oliver,
ich habe deinen Vorschlag umgesetzt und die Daten in ein neues Blatt eingefügt, das Drucken funktioniert jetzt genauso wie es sein sollte.

Danke noch mal für deine Hilfe.

Gruß
fedjo