Discussion :

[Invité]

Bonjour bonjour,

Je souhaite faire une macro qui me permettrai d'enregistrer le même document avec plusieurs "options".


En gros un PDF avec seulement la première page, un autre avec les deux premières et enfin un troisième avec le document en entier !

Mais je bloque sur l'utilisation de "PRINTRANGE" !!!

En gros voici ce que je souhaitais faire ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub sav_pdf_auto()
 
    Dim R1, R2, R3 As PrintRange
 
    R1 = ????????????????
    R2 = ????????????????
    R3 = ????????????????
 
 
    ActivePresentation.ExportAsFixedFormat Path:="c:\1\test.pdf", _
    FixedFormatType:=ppFixedFormatTypePDF, _
    PrintRange:=R1
 
    etc. etc.
 
End Sub

Comment défini-t-on un printrange ????

[Invité]

Bonjour

Essayes cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub sav_pdf_auto()
 
    ' on déclare les variables
    Dim r1 As PrintRange, r2 As PrintRange, r3 As PrintRange
 
    ' affectation des plages
    Set r1 = ActivePresentation.PrintOptions.Ranges.Add(1, 1)
    Set r2 = ActivePresentation.PrintOptions.Ranges.Add(1, 2)
    Set r3 = ActivePresentation.PrintOptions.Ranges.Add(1, 3)
 
 
    ActivePresentation.ExportAsFixedFormat Path:="c:\1\test.pdf", _
    FixedFormatType:=ppFixedFormatTypePDF, _
    PrintRange:=r1, RangeType:=ppPrintSlideRange
 
 
End Sub

Remarques :

Lorsque tu déclares les variables il faut bien toutes les typées.
Il manquait une donnée RangeType

Philippe

[Invité]

Merci ça fonctionne nickel chrome !!

T'es génial !!