Classe PrintRange (PowerPoint VBA)

La classe PrintRange représente une étendue donnée, comportant plusieurs diapositives ou pages consécutives à imprimer.

Set

Pour utiliser une variable de classe PrintRange, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe PrintRange : PrintRanges.Item, PrintRanges.Add et PrintOptions.Ranges

Delete

Supprime l’objet PrintRange spécifié.

ActivePresentation.PrintOptions.Ranges(1).Delete

End

Renvoie le numéro de la dernière diapositive de la plage d’impression spécifiée. En lecture seule.

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

Parent

Renvoie l’objet parent de l’objet spécifié.

Start

Renvoie le numéro de la première diapositive de l’étendue de diapositives à imprimer. En lecture seule.

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

PrintRanges.Add

Renvoie un objet PrintRange qui représente une nouvelle plage d’impression à ajouter à la collection PrintRanges .

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

Les arguments nommés :

Start (Long) - Numéro de la diapositive qui est la première de la plage.

End (Long) - Numéro de la diapositive qui est la dernière de la plage.

PrintRanges.ClearAll

Efface toutes les plages d’impression de la collection PrintRanges . Utilisez la méthode Add de la collection PrintRanges pour ajouter des plages d’impression à la collection.

ActivePresentation.PrintOptions.Ranges.ClearAll

PrintRanges.Count

Renvoie le nombre d'objets de la collection spécifiée. En lecture seule.

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

PrintRanges.Item

Cette méthode renvoie un seul objet PrintRange de la collection PrintRanges spécifiée.

Syntaxe : expression.Item (Index)

Index: Numéro d’index de l’objet PrintRange unique de la collection à renvoyer.

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

PrintRanges.Parent

Renvoie l’objet parent de l’objet spécifié.