imprimer feuille

[Jean-Paul]

Bonjour a tous ,je fais appel a vous pour un petit probleme a imprimer
j'ai creer un boutton pour imprimer une feuille et mon boutton imprime les 3 feuille du classeur
voici mon boutton

Private Sub CommandButton4_Click()
ActiveWorkbook.PrintOut
End Sub

Pouvez-vous me dire ce qui me manque svp.

Merci a vous tous

 

[Jean-Paul]

excuser moi j'ai oublier de preciser que je voudrais 2 copie de la meme feuille a imprimer

merci

 

[Guy]

Salut,

Une solution possible:

Private Sub CommandButton4_Click()
ActiveWorkbook.PrintOut From:=1, To:=1, Copies:=2, Collate _
:=True
End Sub

A tester

 

[Jean-Paul]

Salut Guy
ça fonctionne bien mais il imprime une feuille pas les deux

aurait tu une solution

Merci

 

[Temjeh]

Salut Jean-Paul

Le mieux pour ce genre de prob est de se servir de l'enregistreur de macro

Tu le démarre...tu sélectionnes la zone a imprimée de la feuille 1 puis tu fait print sélection et ensuite sans arrèter l'enregistreur tu vas à la feuille 2 tu sélectionnes la zone a imprimée de la feuille 2 puis tu fait print sélection et ensuite tu stop l'enregistreur.

Ensuite tu affecte ta macro à ton bouton

Il fait tout pour toi

Temjeh

 

[Guy]

Re Salut Jean-Paul


Autre solution :

Sub Bouton_Imprimer()
Sheets("Feuil1").PrintOut From:=1, To:=1, Copies:=2, Collate:=True
Sheets("Feuil2").PrintOut From:=1, To:=1, Copies:=2, Collate:=True
End Sub

A+

 

[Jean-Paul]

Merci beaucoup
mon probleme est regler