Certaines imprimantes ont la capacité d’imprimer des deux côtés d’une feuille de papier. Cette fonction est appelée impression recto verso, et elle peut ajouter un gros morceau de changement au coût d’une imprimante. Si votre imprimante ne dispose pas de recto verso, la seule façon d’obtenir le même résultat est de faire passer votre papier deux fois dans l’imprimante. La macro VBA suivante vous aidera dans ce processus. Il imprime d’abord les pages impaires d’un document, vous invite à retourner le papier, puis imprime les pages paires.

Sub PrintBothSides()

Dim iTemp As Integer

ActiveDocument.PrintOut Copies:=1, PageType:=wdPrintOddPagesOnly     iTemp = MsgBox("Switch paper to continue", vbOKCancel, "PrintBothSides")

If iTemp = vbOK Then         ActiveDocument.PrintOut Copies:=1, PageType:=wdPrintEvenPagesOnly     End If End Sub

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (1418) s’applique à Microsoft Word 97, 2000, 2002 et 2003.