Sub abc()
Dim noDupes As New Collection
Dim rw As Long
Dim itm As Variant
Selection.AutoFilter Field:=5
rw = ActiveSheet.AutoFilter.Range.Row
For Each cell In ActiveSheet.AutoFilter.Range.Columns(5).Cells
If cell.Row < rw Then
On Error Resume Next
noDupes.Add cell.Value, cell.Text
On Error GoTo 0
End If
Next
For Each itm In noDupes
Selection.AutoFilter Field:=5, Criteria1:=itm
ActiveSheet.AutoFilter.Range.PrintPreview
Next

End Sub

Change PrintPreview to PrintOut

--
Regards,
Tom Ogilvy




"Magoo" wrote in message
oups.com...
Hello Everyone,
I am very new to VBA programming and was wondering if automatic
autofilter printing was possible via Excel vba macro?


What I would like to do is to automatically print autofilter results
based on the autofilters of a designated column, so that I don't have
to select each autofilter one at a time and print. This would be a
great time saver.
See Example Below.
Using the Autofilter on the Title 5 column I would like to
automatically cycle through the various filters and print them.


Title 1 Title 2 Title 3 Title 4 Title 5
Data 1 101 101 101 Unique Data1
Data 2 102 102 102 Unique Data1
Data 3 103 103 103 Unique Data1
Data 4 104 104 104 Unique Data1
Data 5 105 105 105 Unique Data2
Data 6 106 106 106 Unique Data3
Data 7 107 107 107 Unique Data4
Data 8 108 108 108 Unique Data5
Data 9 109 109 109 Unique Data1


Here is what I was able to record:


Sub test2()
'


Selection.AutoFilter Field:=5, Criteria1:="Unique Data1"
ActiveWindow.SelectedSheets.PrintPreview
End Sub


The problem with this is that I cannot figure out a continuous loop of
some sort.
Any help would be greatly appreciated?