Définir le nombre de copies à imprimer

[Eric C]

Bonjour à tous & à toutes

J'ai placé dans une feuille un bouton destiné à lancer l'impression d'une feuille cachée. Le problème est que lors de l'activation, 2 copies sont imprimées alors que je n'en veux qu'une ==> copies:=1. ??


Private Sub OK_Click()
Sheets("Tableau des taxes").Visible = True

With Sheets("Tableau des taxes")
.Activate
.PrintOut
ActiveWindow.SelectedSheets.PrintOut , copies:=1
End With

Sheets("Tableau des taxes").Visible = False
End Sub

Merci de votre compréhension.
@ ++ Eric C

 

[michel]

bonjour Eric

c'est normal car tu as ecrit deux fois PrintOut dans ta procedure

....
.PrintOut
ActiveWindow.SelectedSheets.PrintOut , copies:=1
.....

tu peux essayer

With Sheets("Tableau des taxes")
.Activate
.PrintOut
End With


bon apres midi
michel

 

[Eric C]

Re le forum
Bonjour michel

Pouf pouf pouf, je te remercie vivement pour ta réponse.
Les onomatopées concernent l'entraînement (pas vraiment intensif mais je devrais m'y remettre) que je met pour tenter de battre un record (Je suis à 10 mais le problème c'est que le jeu ce n'est pas mon fort ....) avec ton nouveau jeu. Vraiment instructif ce que l'on peut faire avec EXCEL, félicitationS pour la recherche. Encore Merci.
@ ++ Eric C