Excel bouton pour impression recto verso

Zantos -  
hich24 Messages postés 1686 Statut Membre -
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 1686 Statut Membre 753
 
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 1686 Statut Membre 753
 
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 1686 Statut Membre 753
 
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
zantos
 
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 1686 Statut Membre 753
 
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
zantos
 
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 1686 Statut Membre 753
 
Private Sub CommandButton1_Click()

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

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