Pivot Table Page Field

[Todd Huttenstine]

Hey Guys

I have a pivot table and it has 1 page field
called "Supervisor". There may be 5 or 20 or any number
of values in this pagefield. I would like to be able to
have code select each item available in that particular
page field and run the following code after it makes each
new selection:

Dim RngCounter As Long

RngCounter = Application.WorksheetFunction.CountA
(Worksheets("Wkly Renewals").Range("D"))
With CreateObject("Wscript.Shell")
.Popup "The name of the active printer is " &
Application.ActivePrinter _
, 1, "Print Confirmation", 64
End With
Worksheets("Wkly Renewals").Range("D7:F" & RngCounter +
2).PrintOut


Is this possible to have it loop through and do this?


Thank you
Todd Huttenstine

 

[Tom Ogilvy]

Just loop through the pivot items of the pagefield. Set the page field to
each pivot item

If you need sample code, check this out:

http://groups.google.com/advanced_group_search?hl=en

 

[Todd Huttenstine]

Thanks

Todd

-----Original Message-----
Just loop through the pivot items of the pagefield. Set the page field to
each pivot item

If you need sample code, check this out:

http://groups.google.com/advanced_group_search?hl=en

--
Regards,
Tom Ogilvy




.