Macro that will loop through a filtered list and print each selection

Thank you for the response. The issue is that the criteria as well as the number of criteria are always changing. For example, "123456 ACT LLC" will not always be there. I need it to cycle through the filter selections no matter what the criteria. What is currently happening is when the macro is used on a new page (one page each day) the pages print out blank because it's looking for criteria that don't exist.

Okay, I think I fixed the way the code is displayed above. Thanks

YOU ARE A GENIUS!!!!! THANK YOU SO MUCH!!! That worked perfectly on two different sheets. I get a printout for each different item as well as a blank one if the range is not completely full but I am perfectly fine with that. I have been able to verify the totals to make sure nothing was skipped over and this will save a lot of time

hello my HaHoBe,
you wrote this macro some years ago, i hope you still remember it. i need to make it run on a different cell than A9. what shall I change in the macro ? (lets assume i want it to filter on the cell D12)

Re: Macro that will loop through a filtered list and print each selection

Hi, bobbysue25,

both codes go into a standard module:
[Copy to clipboard]

Function myList(sh As String, lngCol As Long)
Dim vntList(), n As Long, vntC, vntTmp
Dim myCol As New Collection
With Sheets(sh)
ReDim vntList(1 To .Cells(Rows.Count, lngCol).End(xlUp).Row)
vntTmp = .Range(.Cells(10, lngCol), .Cells(Rows.Count, lngCol).End(xlUp))
End With
For Each vntC In vntTmp
Err.Clear
On Error Resume Next
myCol.Add vntC, CStr(vntC)
If Err.Number = 0 Then
n = n + 1
vntList(n) = vntC
End If
Next
ReDim Preserve vntList(1 To n)
myList = vntList
End Function
Sub Printing()
'
' Printing Macro
'

Dim lngLR As Long
Dim varList As Variant
'
varList = myList(ActiveSheet.Name, 1)

With ActiveSheet
For lngLR = LBound(varList) To UBound(varList)
.Range("A9").CurrentRegion.AutoFilter Field:=1, Criteria1:=varList(lngLR)
.PrintOut Copies:=1
Next lngLR
End With
End Sub