Este fórum está sendo desativado

[rit]

Bom dia,

Alguem tem um código que faça filtro por segmentação e faça uma impressão?

Isso a partir de uma lista, tenho uma segmentação que eu vou selecionando item por item ai ele altera um grafico e eu imprimo.

seria um for I = segmentação.count imprimir. só nao sei como escrever isso da forma correta.

[babdallas]

Veja se ajuda.

Código: Selecionar todos

Option Explicit

Sub Imprimir()
    Dim pvtTable    As PivotTable
    Dim lngSlicers As Long, lngItems        As Long, lngAtual   As Long
    
    Set pvtTable = wshPvt.PivotTables("pvtTeste")
    
    For lngSlicers = 1 To pvtTable.PivotFields("Categoria").PivotItems.Count
        lngAtual = lngAtual + 1
        With ThisWorkbook.SlicerCaches("SegmentaçãodeDados_Categoria")
            .ClearManualFilter
            For lngItems = 1 To pvtTable.PivotFields("Categoria").PivotItems.Count
                If lngAtual = lngItems Then
                    .SlicerItems(lngItems).Selected = True
                Else
                    .SlicerItems(lngItems).Selected = False
                End If
            Next lngItems
            
            wshPvt.PrintOut
        End With
    Next lngSlicers
    
    Set pvtTable = Nothing
End Sub