Code pour impression

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Commande0_Click() On Error GoTo Err   Dim stDocName As String 'Dim stLinkCriteria As String Dim reponse As String   stDocName = "F_FICHEMACHINE"   DoCmd.OpenForm stDocName reponse = Forms![F_FICHEMACHINE]![Texte45] MsgBox reponse     Exit_Commande0_Click: Exit Sub   Err: MsgBox Err.Description Resume Exit_Commande0_Click End Sub

---

Voici un code tout ce qu'il y a de plus simple. J'aimerais imprimer le contenu de la variable "reponse", après son affichage avec MsgBox, quel code je dois rajouter pour accomplir cela ?

Merci

Bonjour,

Pour imprimer, l'idéal est de concevoir un état.
Ensuite user de l'objet DoCmd avec la méthode OpenReport et les paramètres idoines pour ouvrir l'état, l'imprimer ou les deux avec ou sans conditions...

Argy