Fusion Word Excel

Bonjour,
Je n'arrive pas à imprimer toutes les lettres d'un fichier de fusion.

Voici mon code (extrait) :

Set Wrd = CreateObject("Word.Application")
Set appWord = Wrd.Documents.Open("Chemin du fichier")
Wrd.activedocument.PrintOut
Wrd.Documents.Close SaveChanges:=wdDoNotSaveChanges

Mais ça ne m'imprime que le premier enregistrement.
Ou est le truc !

Merci d'avance