Problème .PrintOut Copies

Salut à tous, alors j'ai vu 50 miles fois que pour gérer le nombre de copie c'était "Copies=valeur" mais sa ne semble pas marcher :

Private Sub CommandButton2_Click()
Dim nbcopie As Long
nbcopie = 3

    With Sheets(1)
    If Me.CheckBox2.Value = True Then
    ActiveSheet.PrintOut Copies:=nbcopie
    End If
    End With

End Sub

Pourquoi ?

Cordialement

Bonsoir,

Si tu mets :

Dim nbcopie As Integer

Aucune évolution, en revanche j'ai fait le test sur une imprimante hors connexion (pour pas imprimer pour rien) et dans la liste d'attente j'ai qu'une page.

J'ai fait le teste avec PDFCREATOR et c'est pareil, sa reste bloquer à 1.

Cordialement

EDIT : J'ai tester manuellement, depuis excel et ça marche même pas, donc ce n'est même pas un problème de VBA !

Re,

Joins-nous le fichier pour tester.

Bonjour Fred, le forum,

je te propose d'essayer ceci :

Option Explicit

Sub Essai()
  Dim nbcopies%: nbcopies = 3
  Worksheets(1).PrintOut Copies:=nbcopies
End Sub

dans ton code initial, je pense que cette instruction est en cause :

If Me.CheckBox2.Value = True Then

essaye avec :

If .CheckBox2.Value = True Then

* en supposant que sur ta 1ère feuille, tu as bien une case à cocher nommée ChekBox2

* il faut aussi que tu coches la case, car si c'est décoché, y'aura rien !

* cette case à cocher, c'est un contrôle de formulaire ou un contrôle ActiveX ?

(la programmation est pas la même pour les deux !)

dhany