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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

pas de sanction contre les egyptienne 0
état avec imprimante spécifique:pas accepté en access 2007!!!!! 1
GAGNEZ DE L'ARGENT AVEC SEULEMENT 5 LETTRES !!!!!!!!!!!!!!!!!! 0
Word 2007 : error message executing a macro 1
Problème entre Word 2004 et imprimantes Epson 11
Ce Courrier A Changé Ma Vie : 0
Voici LE Moyen de Faire Beaucoup D'Argent Facilement !!!(TO SEE IT IN ENGLISH , JUST GO TO THE BOTTO 0

Top