Imprimer

[Cavare]

Bonjour!

Je suis encore desolé de vous embété avec mon powerpoint mais je n'arrive pas à trouver de site aussi interessant que celui-ci pour powerpoint.

Je voudrais mettre une macro pour imprimer en mode diaporama. En fait je ne voudrais imprimer que des diapositives que j'aurais selectionnées .

Avec ce code j'imprime tous le diaporama:

ActivePresentation.PrintOut

Pourriez-vous m'aider?

Merci.

 

[Abel]

Bonjour Cavare, le forum,

Essaie avec l'enregistreur de macro. Il fonctionne aussi avec PPT.

Un rapide essai me donne ça :

Sub Macro1()

ActiveWindow.ViewType = ppViewSlideSorter
ActivePresentation.Slides.Range(Array(6, 5, 3, 2)).Select
With ActivePresentation.PrintOptions
.RangeType = ppPrintSelection
.NumberOfCopies = 1
.Collate = msoTrue
.OutputType = ppPrintOutputNotesPages
.PrintHiddenSlides = msoTrue
.PrintColorType = ppPrintBlackAndWhite
.FitToPage = msoFalse
.FrameSlides = msoFalse
.HandoutOrder = ppPrintHandoutHorizontalFirst
.ActivePrinter = "\\FF_GEMENOS\Copieur N&B RdC"
End With
ActivePresentation.PrintOut
End Sub

Imprime les diapo 2, 3, 5 et 6 sélectionnées en mode "Trieuse de diapositives".

Je n'ai pas creusé et je n'en ai pas le temps pour le moment mais on doit pouvoir remplacer ça par des variables.

En espérant que cela te dépanne.

Abel.