Agrafage de publipostage

Question

Bonjour à toutes et tous
Je rencontre un souci pour que mon imprimante agrafe chaque dossier (composé de 9 feuilles d'un publipostage" séparement.
J'ai vu qu'il y avait à indiquer un changement de section via une macro.
J'ai trouvé celle ci, que j'ai nommé impression_dossiers.

Sub impression_dossiers()
Dim ntotal
ntotal = ActiveDocument.Sections.Count
For x = 1 To ntotal
ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:="s" & x
Next
End Sub

J'ai paramétré mon imprimante avant de lancer l'execution de la macro, qui s'execute correctement. Je lance ensuite l'impression depuis l'onglet publipostage mais cela reste sans effet. Les feuilles sont toues agrafées ensemble.
Je vous remercie par avance pour l'aide que vous pourrez m'apporter sur ce point.
Bien à vous

78chris · Answer

Y a t'il un réglage de l'imprimante concernant l’agrafage ? Cela envoie bien autant d'ordre d'impressions que de sections mais comme c'est le même utilisateur et le même nom de document, peut-être que l'imprimante traite comme un unique document. Voir du côté du paramétrage de cet agrafage... Edit : J'ai trouvé ce code sur Internet : à tester sur un exemple avec 2 feuilles X 2 destinataires avant de le faire en vraie grandeur 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...