Recherche

On parle donc ici d'un document principal de publipostage qui fait plusieurs pages et vous souhaitez fusionner ce document directement sur l'imprimante avec un agrafage pour chaque destinataire.

Cette impression demande une macro, sinon l'imprimante tenterait d'agrafer la totalité de la fusion.

NB : dans la mesure du possible, il est préférable de fusionner vers un nouveau document, ce qui permet de ne pas gâcher du papier, en cas d'erreur, d'autant plus qu'il est toujours difficile d'arrêter une imprimante. Dans ce cas voyez cet article.
 Si ce n'est pas possible parce que le document serait trop gros, faites un test avant de lancer l'impression. Voyez ci-dessous.

Attention ! la macro ne configure pas l'imprimante. Donc, votre imprimante doit être pré-configurée comme vous le souhaitez (recto-verso, agrafage etc.)

Sub publipostage()
'imprime enregistrement par enregistrement
Dim fusion As MailMerge
Dim x As Integer, nb As Integer
Set fusion = ActiveDocument.MailMerge
nb = fusion.DataSource.RecordCount
For x = 0 To nb - 1
With fusion
    .DataSource.FirstRecord = x + 1
    .DataSource.LastRecord = x + 1
    .Destination = wdSendToPrinter
    .Execute
End With
Next
End Sub
 

Avant de lancer l'impression pour tous les destinataires, faites un test avec 2 ou 3 personnes. Pour cela remplacez la ligne

    For x = 0 To nb - 1

par

    For x = 0 To 2

 

 

Statistiques

France 74,1% France
Canada 7,6% Canada
États-Unis d'Amérique 4,1% États-Unis d'Amérique

Total:

93

Pays
018288621
Aujourd'hui: 7
Hier: 268
Cette semaine: 1.462
Semaine dernière: 1.707
Ce mois: 1.198