Impression doc Word avec vb

Bonjour,

j'aimerai imprimer un document word plusieurs fois selon les cas puis fermer l'application
je voudrai donc savoir comment peut on attendre la fin d'impression pour fermer l'application.
j'utilise cette procédure pour ouvrir et imprimer :
        Message_Texte = InputBox("Veuillez saisir le nombre d'impression", "IMPRESSION")
        Contrôle_Message_Texte = IsNumeric(Message_Texte)
            If Contrôle_Message_Texte = False Then
                Message_Texte = MsgBox("Veuillez entrer une valeur numérique", vbCritical)
            Else
                Nombre_Impression_Fiches = Message_Texte
                   Set AppWord = CreateObject("Word.Application")
                   Set DocWord = AppWord.Documents.Open("C:\Renseignements.doc", ReadOnly:=True)
                   AppWord.Visible = False
                   AppWord.PrintOut Copies:=Nombre_Impression_Fiches
                   ' AppWord.quit
                   ' Set AppWord = Nothing
                   ' Set DocWord = Nothing       
            End If

Si  je mets directement après mon instruction d'impression les 3 lignes en bleu j'obtiens un message d'alerte me signalant que si je ferme Word mon impression sera stopée.
Voilà donc mon problème comment faire pour attendre la fin d'impression avant de commander la fermeture de l'application WORD.
Merci d'avance.