Automate Printing from a Pivot Table?

[PolarBear]

Hello,

I have a pivot table which shows sales data for a group of teams. I wanted a macro to print out a page for each team (the team name is up on the page level). So, using the macro record function, I stepped through the teams, and it generated the following (only showing 2 examples):

Sheets("DAILY TE- CUSTOMER").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Team").CurrentPage =
"John Jones"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PivotTables("PivotTable1").PivotFields("Team").CurrentPage = _
"Mary Smith"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

When I tried to run it, I got an error message "Syntax error" for line 2 (ActiveSheet.PivotTables... etc.)

Any thoughts as to what might be wrong?

Thanks,

Kevin

 

[BrianB]

THIS IS A DUPLICATE POSTING
******************************
It is not necessary, and frowned upon.
*******************************
It can waste a lot of our time by putting answers to questions already complete, as well as splitting a thread into several parts so people searching only get part of the picture.

You can see that your message has been read several times.
If you do not get an answer in a day or so, bring your message back to the top by adding a reply.

We habitually go back several days checking messages with no reply. This site makes it especially easy to do so.

If you have not got an answer by then you may need to change it to be shorter, or more understandable. In your case here it is OK.
See my reply there.