i try this macro but it didn't work
Sub Macro1() ' ' Macro1 Macro ' ' With ActiveSheet.PivotTables("PivotTable1").PivotFields("#") .PivotItems("2").Visible = False .PivotItems("3").Visible = False .PivotItems("4").Visible = False .PivotItems("5").Visible = False .PivotItems("6").Visible = False .PivotItems("7").Visible = False .PivotItems("#N/A").Visible = False .PivotItems("(blank)").Visible = False End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Range("A3").Select With ActiveSheet.PivotTables("PivotTable1").PivotFields("#") .PivotItems("1").Visible = False .PivotItems("2").Visible = True End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveSheet.PivotTables("PivotTable1").PivotSelect "'#'[All]", xlLabelOnly, _ True With ActiveSheet.PivotTables("PivotTable1").PivotFields("#") .PivotItems("2").Visible = False .PivotItems("3").Visible = True End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Range("A3").Select With ActiveSheet.PivotTables("PivotTable1").PivotFields("#") .PivotItems("3").Visible = False .PivotItems("4").Visible = True End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False With ActiveSheet.PivotTables("PivotTable1").PivotFields("#") .PivotItems("4").Visible = False .PivotItems("5").Visible = True End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False With ActiveSheet.PivotTables("PivotTable1").PivotFields("#") .PivotItems("5").Visible = False .PivotItems("6").Visible = True End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False With ActiveSheet.PivotTables("PivotTable1").PivotFields("#") .PivotItems("6").Visible = False .PivotItems("7").Visible = True End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False EndSub