Macro imprimer - plante si message de marges étroites

S

Souriane

Bonjour,

J’ai créé une macro pour imprimer en recto-verso et revenir en mode
normal après la macro. Elle fonctionne très bien. Sauf si les marges
sont trop étroites. Dans ce cas-là, elle plante. Quel code rajouter
à la macro pour qu’elle passe outre le message de marge trop étroite.

Voici la macro :

Sub RectoVerso()

'Bac par défaut
ActiveDocument.PageSetup.FirstPageTray = wdPrinterDefaultBin
ActiveDocument.PageSetup.OtherPagesTray = wdPrinterDefaultBin

ActivePrinter = "\\svmprtmain\I06383RV" ‘j’ai programmé la même
imprimante sous un nom différent avec par défaut le recto-verso
Application.PrintOut Background:=True, Range:=wdPrintAllDocument

'Retour à l'imprimante sans recto-verso
ActivePrinter = "\\svmprtmain\I06383"

End Sub

Merci!

Souriane
 
Top