Impression recto-verso VBA

Bonjour,

je suis en train d'automatiser l'impression de feuilles d'un classeur avec un Bouton sur lequel j'ai affecté une macro.

L'ennui est que j'aimerais imprimer les feuilles en recto-verso. J'ai essayé de sélectionner l'option recto-verso sur chacune des feuilles du classeur et d'enregistrer et ça fonctionne, mais après d'autres essais ça revient à une impression seulement recto.

Je me demandais donc s'il existait une solution pour imprimer automatiquement en recto-verso ?

Voici le code que j'utilise et qui ne fonctionne que si je sélectionne préalablement l'option recto-verso manuellement sur chaque feuille du classeur.

Workbooks.Open Filename:="exemple.xlsx"
    Sheets(Array("Feuille1", "Feuille2")).Select
    Sheets("Feuille1").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
    ActiveWindow.Close savechanges:=False

Merci !

Francis

Bonjour,

Voir si ce lien peut aider ...

https://forum.excel-pratique.com/viewtopic.php?t=28326

ric

Bonjour,

ajoute au panneau de config. ton imprimante une 2ème fois donne lui un autre nom comme "MonPrint_recto_verso"

et ajuste les propriétés pour recto-verso

dans ton code, choisi cette imprimante,

MyPrinter = "MonPrint_recto_verso sur Ne01"  'à adapter
Application.ActivePrinter = MyPrinter

Merci beaucoup pour les piste de solutions. Pour l'instant, mettre l'imprimante en recto-verso par défaut semble avoir réglé le problème !