Entrez le code suivant dans le "Construire" boîte de dialogue de bouton.
Private Sub PrintDoc_Click ()
Dim WordObj As Object
Me! [OLEObj] .Verb = -2 'indique à Access pour ouvrir l'application
Me! [OLEObj] .Action = 7 'Active l'application
Définir WordObj = Me! [OLEObj] .Object.Application
WordObj.PrintOut Contexte: = Faux
WordObj.Quit
Réglez WordObj = Nothing
End Sub