user_mobilelogo

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

Aujourd'hui166
Hier2773
Cette semaine16189
Ce mois36905
Total depuis 200411613024

6
visiteurs actuellement en ligne

14 décembre 2019