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
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
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 Submais 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
Dernière édition:
