Selecting the next (excel)pivottable item via VB

Hello,
I have a pivottable in Excel in which I want to select the first item, print the data, select the next, print the data etc until the last one. Not every item is always in the list.
Now I do it manual, but I want to automate it.
Now I have this VB:

**
Sheets("PivotInfo").Select
ActiveSheet.PivotTable
("PivotPosted").PivotFields("Dealer").CurrentPage = "item1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
**

Now I want the script to select the next item after item1 is printed.

Any help will be appreciated!

Thanks,
Mark.