Imprimer sous ACCESS en VBA
PtitGrumo
Messages postés
205
Date d'inscription
samedi 22 janvier 2005
Statut
Membre
Dernière intervention
28 novembre 2005
-
3 mai 2005 à 16:23
vaughan Messages postés 198 Date d'inscription mardi 6 août 2002 Statut Membre Dernière intervention 29 octobre 2008 - 3 mai 2005 à 16:39
vaughan Messages postés 198 Date d'inscription mardi 6 août 2002 Statut Membre Dernière intervention 29 octobre 2008 - 3 mai 2005 à 16:39
1 réponse
vaughan
Messages postés
198
Date d'inscription
mardi 6 août 2002
Statut
Membre
Dernière intervention
29 octobre 2008
3 mai 2005 à 16:39
3 mai 2005 à 16:39
Il faut créer un "Report".
Créer sur ta "Form" un bouton print (Utilise le Wizard) en choisissant le "Report"
Voici un code source :
Private Sub Command5_Click()
On Error GoTo Err_Command5_Click
Dim stDocName As String
stDocName = "Table1"
DoCmd.OpenReport stDocName, acNormal
Exit_Command5_Click:
Exit Sub
Err_Command5_Click:
MsgBox Err.Description
Resume Exit_Command5_Click
End Sub
vaughan
Créer sur ta "Form" un bouton print (Utilise le Wizard) en choisissant le "Report"
Voici un code source :
Private Sub Command5_Click()
On Error GoTo Err_Command5_Click
Dim stDocName As String
stDocName = "Table1"
DoCmd.OpenReport stDocName, acNormal
Exit_Command5_Click:
Exit Sub
Err_Command5_Click:
MsgBox Err.Description
Resume Exit_Command5_Click
End Sub
vaughan
