Discussion :

[marcmarc150]

Bonjour,
dans mes formulaires, j'ai ajouter des boutons pour imprimer les états, j'ai utilisé dans le code "DoCmd.RunCommand acCmdPrint" la boite d'impression s'affiche, et lorsque j'imprime tout est ok, mais si j''annule l'impression j'ai l'erreur 2501 qui apparait et m’envoie vers le débogage.

Voici le code que j'ai placer pour l'opération d'impression.
Pouvez-vous m'aider....

En vous remerciant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
 Private Sub cmd_et_restriction_produit_employe_Click()
Dim Rep As Integer
    stDocName = "et_rq_restriction_medicale_produit_tous_employe"
    Rep = MsgBox("Voulez-vous imprimer cet état.... ?", vbYesNo + vbQuestion, "Valider votre choix ...")
    If Rep = vbYes Then
    DoCmd.OpenReport stDocName, acPreview
    DoCmd.RunCommand acCmdPrint
    End
    Exit Sub
    Else
     DoCmd.OpenReport stDocName, acPreview
     Exit Sub
    End If
End Sub

En vous remerciant

Marcmarc

[Orion34080]

Bonjour,
avec ceci, c'est pareil ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmd_et_restriction_produit_employe_Click()
Dim Rep As Integer
    stDocName = "et_rq_restriction_medicale_produit_tous_employe"
    Rep = MsgBox("Voulez-vous imprimer cet état.... ?", vbYesNo + vbQuestion, "Valider votre choix ...")
    If Rep = vbYes Then
        DoCmd.OpenReport stDocName, acPreview
        DoCmd.RunCommand acCmdPrint
    Else
        DoCmd.OpenReport stDocName, acPreview
    End If
End Sub

Michel

[marcmarc150]

Re bonjour,
effectivement, c'est pareil, c'est pour cela que j'avais essayer un exit sub,
mais j'ai toujours l'erreur lorsque j'annule
j'ai placé en annexe une copie pour l'impression et lorsque j’annule celle-ci et une pour l'écran de l'erreur

Marcmarc

[RobiPMS]

Bonjour.

Introduis un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Resume Next

en début de code.
S'il n'y a rien d'autre dans ta procédure, ça résoudra le problème sans conséquence négative.

Cordialement.

[marcmarc150]

Re bonjour,

Cela fonctionne, l'erreur à disparu
En te remerciant de l'aide pour ce soucis

Marcmarc