Excel bouton pour impression recto verso

Fermé
Zantos - 29 avril 2009 à 14:13
hich24 Messages postés 1635 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 1 février 2025 - 29 avril 2009 à 16:24
Bonjour,

Je sollicite votre aide..

Voila, j'aurai besoin de créer un bouton sur une feuille de classeur dans excel.. Bouton qui permettrai
d'imprimer directement la feuille en question en mode recto verso..
J'arrive a lancer une impression via le bouton, mais pas à commander le mode R/V.
Cela fait un moment que je pinaille sur la question et je ne trouve pas de solution.

Merci
A voir également:

7 réponses

hich24 Messages postés 1635 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 1 février 2025 753
29 avril 2009 à 16:11
si ca doit marcher tu met au plus simple
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
1
hich24 Messages postés 1635 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 1 février 2025 753
29 avril 2009 à 16:24
j'ai pas comprit ca marche ou pas ?

si ca marche tu auras la gentills de voter sur le message et de mettre sur resolu
1
hich24 Messages postés 1635 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 1 février 2025 753
29 avril 2009 à 14:50
l'impression recto verso se fait sur les option de l'imprimante pas du excel alors ci tu veut tu peut donner la marque de votre imprimante
0
Enfait, c'est une imprimante d'entreprise qui est configuré en impression normale par défaut.
Ce que je recherche c'est une commande pour lancer momentanement une impression R/V sur un document précis. Cela pour éviter aux utilisateurs de ce doc de faire (ou d'oublier de faire) la manip' manuellement, et faire une économie de papier par la même occasion..
0
hich24 Messages postés 1635 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 1 février 2025 753
29 avril 2009 à 15:08
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

ajoute Collate:=true al ligne de l'impression
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
voila le code que j'utilise, sans résultats...

Private Sub CommandButton1_Click()

Application.ActivePrinter = "\\FRLYONN168\QFRVXGI0680_PCL sur Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\FRLYONN168\QFRVXGI0680_PCL sur Ne05:", Collate:=True

End Sub
0
hich24 Messages postés 1635 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 1 février 2025 753
29 avril 2009 à 15:58
Private Sub CommandButton1_Click()

Application.ActivePrinter = "\\FRLYONN168\QFRVXGI0680_PCL sur Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub
0
bon écoute ca ne fonctionne toujour pas..
Je pense que ca ne doit pas être possible
Merci bié..
0
Pues, nada
merci encore...
0