Appel de la fenêtre Imprimer

[JoCandide]

Bonjour,

J'ai déjà fait plusieurs recherches pour trouver le code VBA qui me permette d'ouvrir la fenêtre standard Imprimer lorsque je me trouve en visionneuse. Actuellement j'ai un bouton qui me permet d'imprimer la diapositive courante :

Voici le code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub ImprimerDia()
 
Dim CurrSlide As Long
CurrSlide = SlideShowWindows(1).View.Slide.SlideNumber
With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
With .Ranges
.ClearAll
.Add CurrSlide, CurrSlide
End With
.NumberOfCopies = 1
.OutputType = ppPrintOutputSlides
End With
'Impression
ActivePresentation.PrintOut
 
End Sub

J'ai trouvé sur Excel j'ai le code :

'Choix de l'imprimante
'Application.Dialogs(xlDialogPrinterSetup).Show
ou
'Application.Dialogs(Excel.xlBuiltInDialog.xlDialogPrinterSetup).Show

Mais je ne trouve pas l'équivalent sous Powerpoint.

Avez-vous une idée ?

Merci d'avance

NB: Info pour Admin et Modé : j'ai fait un mauvais post (mis cette discussion dans mauvaise discussion Powerpoint)