Print data from AutoFilter (Excel 97 (SR-1))

Topic

New Reply

Hi All,

I need some help in printing my data, a list with an Autofilter. I need to go through each item in column A’s autofilter and print the data.

I can do it manually, but after the fortieth item, it gets rather tiresome. How can I automate this?

TIA,

Tom

Reply | Quote

Replies

Create a list of unique items in column A. You could do that with a once off Advanced Filter of column A.

You could then run some code like the following :

Sub PrintFilteredList()
Dim oCell As Range
For Each oCell In Range("Items")
    Range("Data").AutoFilter Field:=1, Criteria1:=oCell  
    ActiveWindow.SelectedSheets.PrintOut
Next
Range("Data").AutoFilter
End Sub

where Items is the range containing the list of unique entries in column A, and Data is the range of columns you want to filter and print.

Hope that can assist.

Andrew C.

Edited to include missing Carriage Return

Reply | Quote

Andrew,

I’ll give it a try. Many thanks!

Tom

Reply | Quote

Andrew,
You are AWESOME!!! And your code works great, too!

Thank you very, very much for saving me from a lot of manual steps. Yippee!!

Tom

Reply | Quote