Compartilhar via


Objeto PrintRanges (PowerPoint)

Uma coleção de todos os objetos PrintRange da apresentação especificada. Cada objeto PrintRange representa um intervalo de slides consecutivos ou páginas a serem impressas.

Exemplo

Use a propriedade Ranges para retornar a coleção PrintRanges. O exemplo a seguir limpa todos os intervalos de impressão definidos anteriormente da coleção da apresentação ativa.

ActivePresentation.PrintOptions.Ranges.ClearAll

Use o método Add para criar um objeto PrintRange e adicioná-lo à coleção PrintRanges. O exemplo a seguir define três intervalos de impressão que representam o slide 1, slides de 3 a 5 e os slides 8 e 9 da apresentação ativa e, em seguida, imprime os slides desses intervalos.

With ActivePresentation.PrintOptions

    .RangeType = ppPrintSlideRange

    With .Ranges

        .ClearAll

        .Add 1, 1

        .Add 3, 5

        .Add 8, 9

    End With

End With

ActivePresentation.PrintOut

Use Intervalos (índice), em que o índice é o número de índice do intervalo de impressão, para retornar um único objeto PrintRange . O exemplo a seguir exibe uma mensagem que indica o inicial e final números de slide intervalo de impressão um da apresentação ativa.

With ActivePresentation.PrintOptions.Ranges
    If .Count > 0 Then
        With .Item(1)
            MsgBox "Print range 1 starts on slide " & .Start & _
                " and ends on slide " & .End
        End With
    End If
End With

Confira também

Referência de modelo de objeto do PowerPoint

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.