Discussion :

[jaihna]

Bonjour à tous !

J'ai un petit problème concernant une macro sur excel. je souhaite imprimer en recto-verso 2 feuilles différentes avec une plage de sélection de cellules.

voici le code pour l'impression de la sélection de cellules :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub imprimer()
 
Sheets("Fiche de Fabrication").Select
    Cells.Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets("Fiche de Suivi Conditionnement").Select
    Cells.Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets("Généralités").Select
 
End Sub

Maintenant je voudrais sélectionner l'imprimante qui imprime par défaut en recto-verso.
J'ai déjà tester en insérant en début de procédure la ligne qui permet d'avoir la boite de dialogue pour sélectionner l'imprimante, mais ça m'a sorti les 2 feuilles et non une en recto-verso.

Si quelqu'un a une astuce à me faire passer ? Merci beaucoup d'avance.

[NEC14]

Bonjour,

Si la boîte de dialogue imprimante s'ouvre, il n'y a plus qu'à choisir l'option recto-verso, pas besoin de code pour ça.
Ou alors je n'ai pas compris le problème

[jaihna]

Bonjour et merci pour la réponse.
Le soucis est que ça ouvre juste une petite fenêtre dans le style d'une liste déroulante.
Ensuite le soucis c'est que ce fichier sera utilisé sur un poste MAC avec Excel dessus et ce que j'ai réussi à faire sur mon PC sur excel ça bug sous le excel MAC, en gros c'est la misère.

Si quelqu'un à déjà fait face à des macros sur MAC je suis preneuse.