Drucken von Tabelle mit Filter

Hallo,
das beiliegende Makro druckt die Std-Karten unserer Angestellten aus.
Wie kann das Makro gesteuert werden, dass nur die Karten gedruckt werden,
die in der Tabelle PNR1 gefiltert wurden (Daten, AutoFilter)
(Personalnummer, Name, Abteilungs-Nr., momentan ist Abteilung 1 gefiltert!)
Wer weiss Rat?
Jetzt schon besten Dank für eine Antwort
Markus
------------------
Function Start_Seriendruck()
Dim rng As Range, c As Range
With Worksheets("PNR1")
Set rng = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
End With
For Each c In rng
Worksheets("Std_Karte").Range("AE5") = c.Value
Worksheets("Std_Karte").PrintOut
Sheets("Std_Karte").Select
Sheets("PNR1").Select
Calculate
' warten, um Drucküberlauf zu vermeiden
Sleep 2000
Next c
Exit Function