printing multiple sheets in one print job

U

user

I have a macro that prints several pivot items (about 75 in total) but I need
them to come out in a single print out. Could anyone shed me some light? This
is the code of my macro:

Thanks!

With ActiveSheet.PivotTables("PivotTable1")


For Each pvtItems In .PivotFields("ItemList").PivotItems
ItemCount = ItemCount + 1

ItemName = .PivotFields("ItemList").PivotItems(ItemCount).Name
.PivotFields("ItemList").CurrentPage = ItemName

ActiveWindow.SelectedSheets.PrintOut From:=1,
To:=Range("MaxPages").Value, Copies:=Range("MaxNoCopies").Value,
printtofile:=True, Collate:=True, PrToFileName:=ItemFileName

Next

End With
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

delete selection in pivotcolumn 3
VBA Pivot Table Error 1
Pivot Table Filtering - Macro 3
VBA Filtered Pivot Table Showing "Multiple Values Selected"; Only One Value Selected 0
PivotTable: How to reset the CurrentPage to (All) 0
Pivot Table - How do I "Show All Data" of a particular field? 6
Format Pivot total rows 2
Pivot Table Issue... 2

Top