Discussion :

[operaq]

Bonjour,

J'ai un fichier word de 12 pages que je souhaite imprimer plier et agrafer (piqure à cheval). Cependant étant un fichier prévu pour un publipostage lorsque je fusionne et imprime cela ne prend plus en compte les 12 pages mais assemble, agrafe et plis le tout....

Auriez vous une solution ?

[Heureux-oli]

Salut,

Pourrais-tu être plus clair ?

[clementmarcotte]

Bonjour,

Bonjour,

J'ai un fichier word de 12 pages que je souhaite imprimer plier et agrafer (piqure à cheval). Cependant étant un fichier prévu pour un publipostage lorsque je fusionne et imprime cela ne prend plus en compte les 12 pages mais assemble, agrafe et plis le tout....

Auriez vous une solution ?

Donc, tu veux que tes 12 pages, se retrouvent sur 6 grandes feuilles, genre Tabloid par chez-nous, en mode paysage avec 2 pages sur chaque feuille ?

Cela commence par trouver l'imprimante (la machine) qui peut imprimer en A quelque chose en paysage, puis brocher puis imprimer. Cette partie n'a rien à voir avec Word.

Ensuite, tu dois faire ta mise en page en conséquence, et sauf horreur de ma part, cela va dépendre, au moins en partie de ton imprimante.

À vrai dire, je crois que cela irait mieux avec un programme d'édition électronique. Si faire cela avec Word est le résultat de disponibilité de budget, tu peux jeter un œil sur Scribus. Il est gratuit.

[operaq]

Bonjour,

J'ai un document word 12 pages format A4, toute remplie de texte, tableau et avec un plus de 200 champ variable au total destiné à une fusion vers 2000 adresses d'un fichier excel. L'imprimante que j'utilise permet de plier et agrafer afin de créer un format livret type A5 ou A4, soit ici j'utiliserais 3 A4 plier agrafé (12 pages). Lorsque j'imprime une entrée, je n'ai aucun problème bien sur, cela me créée mon livret de 3 A4 sans problème, mais dès que je souhaite en lancer plusieurs par exemple pour deux entré il va m'imprimer, plier et agrafer 6 A4....

Ayant beaucoup d'entrée, mon souhait serait donc de pouvoir lancer ma fusion en impression et pouvoir sortir un livret 3 A4 pour chaqu'une des entrées à la suite.

J'utilise word et excel souvent mais sans être parfaitement à l'aise, surtout pour word par rapport à la mise en page, peut être est ce dû à la structure type saut de section ou autre que je ne sais pas bien gerer.

Merci par avance

[PiNkjeLLy]

et pourquoi ne pas faire un transfert vers une imprimante virtuelle genre PDF Créator pour voir le résultat complet de ta fusion avant de lancer les impressions physiques ?

[operaq]

Mettre au format PDF me fait perdre beaucoup trop en qualité, également avec plus de 2000 entrée ça serait beaucoup plus sécurisant de passer par le publipostage.
Mais mon soucis semble résider vraiment sur la logique du doc, je n'ai surement pas fait ce qu'il fallait pour lui faire comprendre que les 12 pages sont liées, peut être avec la fonction "suivant" ?

[PiNkjeLLy]

l'utilisation du pdf c'était juste pour faire une prévisualisation du document, pas forcément imprimer depuis ce pdf ensuite, mais juste avoir un aperçu du résultat sans être obligé d'imprimer à chaque fois.
les données sont les mêmes que celles utilisées dans le publipostage, seulement au moment de terminer la fusion, imprimer non pas vers l'imprimante physique qui va te sortir tes feuilles, mais imprimer vers PDF Creator pour avoir le résultat pdf.
une maquette du doc ? ou un schéma grossier du résultat attendu ?

[operaq]

Oui lorsque j'utilise PDFCREATOR je peux voir que le resultat, mais si je lui demande une centaine d'enregistrement PDFCREATOR plante...

[Heureux-oli]

Salut,

Je pense que dans ton cas, l'impression simple de tous les résultat ne le fera pas.
Pour assembler tes documents, il faut lancer l'impression enregistrement par enregistrement.
Et seul VBA permet d'arriver à ce résultat.

[operaq]

Bonjour,

Oui du coup j'ai tenté cette macro;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Dim NbPages As Integer
    ActiveDocument.Bookmarks("\endofdoc").Select
    NbPages = Selection.Information(wdActiveEndPageNumber)
    MsgBox "fin doc" & NbPages
    ActivePrinter = "Xerox 700 Integrated Fiery"
    debut_plage = 1
    palier = 12
    ' debut boucle
    While debut_plage < NbPages
    fin_plage = debut_plage + palier
    plage_pages = debut_plage & "-" & fin_plage
    MsgBox plage_pages
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:=plage_pages, PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
    debut_plage = debut_plage + palier
    'fin boucle
    Wend

Mais je rencontre un problème par rapport à la structure de mon document, dans mon word la page de garde est composée d'image et d'un tableau que je dois étiré pour des raisons esthétique mais sans modifier les autres pages, je ne maitrise pas très word j'ai donc grossièrement mis un saut de section afin de pouvoir modifier les marges de ma première page sans difficulté. Helas la macro ne semble plus fonctionner...