Modification of a code that Prints all Pivot Filters

Dear Experts,

I have a report sheet which has 6 pivot tables (actually 2 but one of them shows 5 different views). All pivot tables are linked and with change in unique pivot table (PivotTable2) remaining 5 pivots also change to show the same pivot filter. Works fine till here.

What I am trying to achieve is printing all pivot filter items of PivotTable2. I found the code below on Microsoft.com by Audrey-4340 but it is giving me runtime error 5 on line “ .CurrentPage = Pi.Caption”

Please advise.
Original Code:

Please Login or Register  to view this content.

My Modifications

Please Login or Register  to view this content.