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
Configuration: Windows XP
Firefox 3.0.10

7 réponses

  1. 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
  2. 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
  3. 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
    1. 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
  4. hich24 Messages postés 1686 Statut Membre 753
     
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    ajoute Collate:=true al ligne de l'impression
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. 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
  7. 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
    1. zantos
       
      bon écoute ca ne fonctionne toujour pas..
      Je pense que ca ne doit pas être possible
      Merci bié..
      0