excel - How to change and print multiple filters of a single pivot table at once? -

overview:

i have pivottable filter. filter contains list 1 30, each of must printed separately. is, each time have change filter , print filtered result.

my demand:

what want print of them @ once.

conditions:

the list of numbers not continous or static. means numbers droped , new numbers may added later.

my current situation , challange:

by means of macro recorder command, arrive following situation. problem that, don't know how make dynamic. mean, how "do procedure existing numbers".

can me please correct , complete following macro?

sub makro1() ' ' makro1 makro '          activesheet.pivottables("leistungsnachweise").pivotfields("tour").currentpage _ = "1"     activewindow.selectedsheets.printout copies:=1, collate:=true, _ ignoreprintareas:=false     activesheet.pivottables("leistungsnachweise").pivotfields("tour").currentpage _ = "2"     activewindow.selectedsheets.printout copies:=1, collate:=true, _ ignoreprintareas:=false  end sub 

thanks,
dio

someone gave me clear-cut answer in following link. found useful, share you.

you can find in ozgrid forum

here copy of answer:

sub loopfield()  dim pivf pivotfield  dim pivi pivotitem   set pivf = activesheet.pivottables("leistungsnachweise").pivotfields("tour")   application.screenupdating = false  each pivi in pivf.pivotitems      pivf.currentpage = pivi.name       activewindow.selectedsheets.printout copies:=1, collate:=true, ignoreprintareas:=false  next pivi   'clear filer pivf.clearallfilters   application.screenupdating = true  end sub