Sub Makro7()
'
' Makro7 Makro
'

'
    ActiveWorkbook.SlicerCaches("Fragmentator_Przedstawiciel_Handlowy"). _
        VisibleSlicerItemsList = Array( _
        "[S216].[Przedstawiciel Handlowy].&[IMIĘ I NAZWISKO PRZEDSTAWICIELA]")
    ActiveSheet.PivotTables("Tabela przestawna1").PivotSelect "", xlDataAndLabel, _
        True
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Adres sharepoint\ FOLDER \ NAZWA+DATA+IMIĘ I NAZWISKO PRZEDSTAWICIELA".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub