High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Excel bouton pour impression recto verso

Dernière réponse le 29 avr 2009 à 16:24:58 Zantos, le 29 avr 2009 à 14:13:54 
 Signaler ce message aux modérateurs

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

Configuration: Windows XP
Firefox 3.0.10

Posez votre question Répondre

1

hich24, le 29 avr 2009 à 14:50:25

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

   
Répondre à hich24

2

zantos, le 29 avr 2009 à 15:04:44

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..

   
Répondre à zantos

3

hich24, le 29 avr 2009 à 15:08:04

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

ajoute Collate:=true al ligne de l'impression

   
Répondre à hich24

4

zantos, le 29 avr 2009 à 15:55:06

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

   
Répondre à zantos

5

hich24, le 29 avr 2009 à 15:58:20

Private Sub CommandButton1_Click()

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

End Sub

   
Répondre à hich24

6

zantos, le 29 avr 2009 à 16:08:15

Bon écoute ca ne fonctionne toujour pas..
Je pense que ca ne doit pas être possible
Merci bié..

   
Répondre à zantos

7

hich24, le 29 avr 2009 à 16:11:52

Si ca doit marcher tu met au plus simple
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

   
Répondre à hich24

8

zantos, le 29 avr 2009 à 16:18:05

Pues, nada
merci encore...

   
Répondre à zantos

9

 hich24, le 29 avr 2009 à 16:24:58

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

   
Répondre à hich24
Posez votre question Répondre
Ils ont besoin de votre aide