Classe PrintRange (PowerPoint VBA)

A classe PrintRange representa um único intervalo de slides ou páginas consecutivas a serem impressas.

Set

Para usar uma variável de classe PrintRange, ela primeiro precisa ser instanciada por exemplo

Dim pre as PrintRange
Set pre = ActivePresentation.PrintOptions.Ranges(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo PrintRange: PrintRanges.Item, PrintRanges.Add e PrintOptions.Ranges

Delete

Exclui o objeto PrintRange especificado.

ActivePresentation.PrintOptions.Ranges(1).Delete

End

Retorna o número do último slide do intervalo de impressão especificado. Somente leitura.

Dim lngEnd As Long
lngEnd = ActivePresentation.PrintOptions.Ranges(1).End

Parent

Retorna o objeto parente para o objeto especificado.

Start

Retorna o número do primeiro slide no intervalo de slides a serem impressos. Somente leitura.

Dim lngStart As Long
lngStart = ActivePresentation.PrintOptions.Ranges(1).Start

PrintRanges.Add

Retorna um objeto PrintRange que representa um novo intervalo de impressão a ser adicionado à coleção PrintRanges.

Sintaxe : expression.Add (Start, End)

Dim lngStart As Long: lngStart = 
Dim lngEnd As Long: lngEnd = 
Dim pre As PrintRange
Set pre = ActivePresentation.PrintOptions.Ranges.Add(Start:=lngStart, End:=lngEnd)

Arguments

O seguinte argumento é opcional

Start (Long) - O número do slide inicial do intervalo.

End (Long) - O número do slide final do intervalo.

PrintRanges.ClearAll

Limpa todos os intervalos de impressão da coleção PrintRanges . Use o método Add da coleção PrintRanges para Adicionar intervalos de impressão à coleção.

ActivePresentation.PrintOptions.Ranges.ClearAll

PrintRanges.Count

Retorna o número de objetos na coleção especificada. Somente leitura.

Dim lngCount As Long
lngCount = ActivePresentation.PrintOptions.Ranges.Count

PrintRanges.Item

Retorna um único objeto PrintRange da coleção PrintRanges especificada.

Sintaxe : expression.Item (Index)

Index: O número de índice do único objeto PrintRange da coleção a ser retornado.

Dim pre As PrintRange
Set pre = ActivePresentation.PrintOptions.Ranges(Index:=1)

PrintRanges.Parent

Retorna o objeto parente para o objeto especificado.