Printing one filtered result at a time with pivot tables

**Leouw** · 06-24-2015, 08:39 AM

Hi!

I'm trying to find a solution to make a macro that prints all the data from every individual name in the pivot filter.
Since the names can differ from one day to another I want the macro to go through them all, filter one at a time and print them one at a time until there is no names left.

IF I record a macro it will ofcourse only print the given names and this is a huge problem since the names can change from day to day.

So any suggestions of how I can make a macro that will go through the filtered-list and print them all individually with a vba code?

Example of my macro so far:

Please Login or Register  to view this content.

Regards.
Leouw

**protonLeah** · 06-24-2015, 10:03 PM

Please Login or Register  to view this content.

**Leouw** · 06-25-2015, 02:33 AM

Originally Posted by protonLeah

Please Login or Register  to view this content.

This code leaves me with a Run-time error '1004':
Application-defined or object-defined error

If I debug it shows this line to be the problem:

ActiveSheet.PivotTables("PivotTable9").PivotFields("Name").CurrentPage = person

The actual code I use right now:

Please Login or Register  to view this content.

I want the macro to go through this list and print everyone individually, since the excel page information changes when they are filtered. (I had to blur the last names due to policy).

/Alex