Bonjour à tous,
Je sollicite encore une fois votre aide parce que je cherche un moyen de faire un bouton d'impression sur mon diaporama permettant de l'imprimer, recto verso et de page par feuille. (ce n'est donc pas une impression de document mais bien une impression de diapositive).
J'ai donc utilisé l'enregistreur de macro qui me donne cela :
Sub imprimer()
'
' Macro enregistrée le 15/06/2012 par Full Name
'
With ActivePresentation.PrintOptions
.RangeType = ppPrintAll
.NumberOfCopies = 1
.Collate = msoTrue
.OutputType = ppPrintOutputSlides
.PrintHiddenSlides = msoTrue
.PrintColorType = ppPrintBlackAndWhite
.FitToPage = msoFalse
.FrameSlides = msoFalse
.ActivePrinter = "VERSO"
End With
ActivePresentation.PrintOut
End Sub
Malheureusement, dès que je quitte mon diaporama et que je le reouvre, ca ne fonctionne plus.
Pouvez vous m'aider ?
Cordialement
Je sollicite encore une fois votre aide parce que je cherche un moyen de faire un bouton d'impression sur mon diaporama permettant de l'imprimer, recto verso et de page par feuille. (ce n'est donc pas une impression de document mais bien une impression de diapositive).
J'ai donc utilisé l'enregistreur de macro qui me donne cela :
Sub imprimer()
'
' Macro enregistrée le 15/06/2012 par Full Name
'
With ActivePresentation.PrintOptions
.RangeType = ppPrintAll
.NumberOfCopies = 1
.Collate = msoTrue
.OutputType = ppPrintOutputSlides
.PrintHiddenSlides = msoTrue
.PrintColorType = ppPrintBlackAndWhite
.FitToPage = msoFalse
.FrameSlides = msoFalse
.ActivePrinter = "VERSO"
End With
ActivePresentation.PrintOut
End Sub
Malheureusement, dès que je quitte mon diaporama et que je le reouvre, ca ne fonctionne plus.
Pouvez vous m'aider ?
Cordialement