Word fusion et agrafage

taunis -  
85stl Messages postés 1 Statut Membre -
Bonjour,
J'ai 1000 courriers de 4 pages chacun. Le publipostage en soi ne me pose pas de problème.
Par contre, je n'arrive pas à agrafer par 4.
Le problème c'est que quand on fait un publipostage, Word considère le
résultat comme un seul document, donc si agrafage il y a, ce sera l'ensemble
des pages, or ce je veux, c'est que chaque lettre soit agrafée-1000 agrafages de 4 pages.

Un autre forum me dit que c'est impossible sinon de passer par une programmation; ce dont je suis incapable

Bref quelqu'un aurait-il une solution ?

Merci

2 réponses

  1.
    m@rina Messages postés 27665 Date d'inscription   Statut Modérateur Dernière intervention   11 567
     
    Bonsoir,

    Il faut lancer l'impressiion autant de fois que tu as de sections. C'est ce que fait la macro suivante, en utilisant les paramètres définis de l'imprimante active : 

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


    m@rina
    - "Sur le forum bureautique, on pose des questions concernant la bureautique..."
    - "Ah bon ???"
    1
    1. m@rina Messages postés 27665 Date d'inscription   Statut Modérateur Dernière intervention   11 567
       
      Si tu veux auparavant tester pour les deux premières sections par exemple, remplace
      For x = 1 To ntotal
      par
      For x = 1 To 2

      m@rina
      0
  2. 85stl Messages postés 1 Statut Membre 1
     
    merci pour le tip

    mais j'obtiens le résultat 1 fois section par section, une autre groupée
    imprimante utilisée : photocopieur Konica Minolta série Bizhub
    1

Discussions similaires

Symbole Attention dans Word
Nortec59 -
LOUL7619 -

33 réponses