Clase PrintRange (PowerPoint VBA)

La clase PrintRange representa el intervalo de diapositivas o páginas consecutivas que debe imprimirse.

Set

Para usar una variable de clase PrintRange, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase PrintRange : PrintRanges.Item, PrintRanges.Add y PrintOptions.Ranges

Delete

Elimina el objeto PrintRange especificado.

ActivePresentation.PrintOptions.Ranges(1).Delete

End

Devuelve el número de la última diapositiva en el intervalo de impresión especificado. Solo lectura.

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

Parent

Devuelve el objeto primario del objeto especificado.

Start

Devuelve el número de la primera diapositiva del intervalo de diapositivas que se va a imprimir. Solo lectura.

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

PrintRanges.Add

Devuelve un objeto PrintRange que representa un nuevo intervalo de impresión que se agregarán a la colección PrintRanges.

Sintaxis : 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

Estos son los argumentos con nombre :

Start (Long) - Número de la diapositiva que es la diapositiva inicial del intervalo.

End (Long) - Número de la diapositiva que es la diapositiva final del intervalo.

PrintRanges.ClearAll

Borra todos los intervalos de impresión de la colección PrintRanges . Utilice el método Add de la colección PrintRanges para agregar intervalos de impresión a la colección.

ActivePresentation.PrintOptions.Ranges.ClearAll

PrintRanges.Count

Devuelve el número de objetos de la colección especificada. Solo lectura.

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

PrintRanges.Item

Devuelve un único objeto PrintRange de la colección PrintRanges especificada.

Sintaxis : expression.Item (Index)

Index: Número de índice del único objeto PrintRange de la colección que se va a devolver.

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

PrintRanges.Parent

Devuelve el objeto primario del objeto especificado.