code a modifier pour imprimer recto-verso

grisan29

XLDnaute Accro
bonjour a tous et toutes

j'ai ce code qui me permets d'imprimer les feuilles l'une après l'autre
Code:
Private Sub imprime_Click()
  Dim Msg, Style, Title

  If MsgBox("AVEZ-VOUS CLIQUEZ SUR LE BON BOUTON DE BAS DE PAGE ?", vbOKCancel + vbDefaultButton2, "ATTENTION A L'OUBLI") = vbOK Then  ' Définit le message.

    Sheets(WS_FACTURE).PrintOut Copies:=2, Collate:=True
  Else    ' L'utilisateur a choisi Non.
    MsgBox "impression annulée"  ' Effectue une action.quitter"

  End If

End Sub
je voudrais qu'il puisse imprimer en recto-verso actuellement je passe par l'aperçu avant impression
mais il faut que je clique sur le bouton imprimer pour accéder aux paramètres de l'imprimante
d'ailleurs c'est une BROTHER MFC-9140CDN qui gère toute seule le recto-verso

en fait je n'ai nul besoin de modifier le code, je suis aller sur le site du constructeur et "paramètres" "options des imprimantes" clic droit sur l'imprimante en question et coché la valeur de recto-verso puis faire "appliquer" et le tour est joué du moins pour cette imprimante qui gère le recto-verso d'origine



Pascal sans e :p
 
Dernière édition:
Haut Bas