pb impression via macro

Bonjour,

J'ai fait un diaporama avec la possiblité d'imprimer via un logo.
J'ai donc fait une macro toute simple mais il ne se passe rien !
Sub Imprimer()
' Macro enregistrée le 17/05/2006 par
With ActivePresentation.PrintOptions
.RangeType = ppPrintAll
.NumberOfCopies = 1
.Collate = msoTrue
.OutputType = ppPrintOutputSlides
.PrintHiddenSlides = msoTrue
.PrintColorType = ppPrintColor
.FitToPage = msoFalse
.FrameSlides = msoFalse
.ActivePrinter = "Inkjet 1200 Info"
End With
ActivePresentation.PrintOut
End Sub
Avec cette imprimante depuis Powerpoint j'arrive à imprimer, mais le
problème intervient uniquement depuis la macro.

Déjà, si tu conserves toutes les options par défaut, ta macro peut se
résumer à ça :
Sub Imprimer()
ActivePresentation.PrintOut
End Sub

Ou, si tu veux seulement changer d'imprimante :
Sub Imprimer()
With ActivePresentation.PrintOptions
.ActivePrinter = "Ton_imprimante"
End With
ActivePresentation.PrintOut
End Sub

Ton code doit fonctionner avec la réserve suivante que je viens de découvrir
en faisant quelques tests, y compris avec le code autoenregistré.
- si on imprime la totalité des diapos (RangeType = ppPrintAll)
- ou si on demande une fourchette de diapos assez importante (sur un total
de 10) :
.RangeType = ppPrintSlideRange
With .Ranges
.ClearAll
.Add Start:=1, End:=8
End With
le diaporama passe en arrière-plan !

J'ai 10 diapos : si je demande 1 à 6, c'est Ok. Au-delà, passage en
arrière-plan du diaporama.
Le problème ne se pose pas avec PowertPoint 2000. Uniquement avec PowerPoint
2003.
Si je supprime toutes les animations, c'est Ok.
Je n'en sais pas assez sur le VBA pour corriger ce type d'erreur (s'il
s'agit d'une erreur...).

--
Tisane