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
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
Marcmarc![]()
Partager