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