papier entete et bac [Résolu]

[seb nantes]

Bonjour !
Un progiciel me génère plusieurs contrat dans le même document word et chaque contrat fait 3 pages, le nombre de contrat varie à chaque fois.
Par exemple, le logiciel me génère 3 contrats, j'ai donc un document word de 9 pages. Pour imprimer ces contrats je dispose d'un imprimante à deux bac.
Le 1er bac contient du papier entête avec le logo de ma socièté et le second du papier blanc. Je cherche à imprimer la première page de chaque contrat avec le bac 1 (le papier avec entête) les autres pages avec le bac 2 (papier blanc)
dans mon exemple de 3 contrats / 9 pages, j'imprime d'abord les pages 1-4-7 sur le bac1 puis les autres pages sur le bac2. Cette opération manuelle est quotidienne et fatidieuse quand le nombre de contrat est important.
Je cherche une idée, un truc, une astuce pour augmenter ma productivité.
J'ai essayé de séparer chaque contrat par un saut de section et dans les options de mise en page / onglet papier indique bac1 pour la première page et le bac 2 pour les suivantes mais seule la page1 du contrat 1 s'imprime depuis le bac2, tout le reste sort sur le bac 2 !!!

Je peux peut-être enregistrer une macro car je ne sais pas les écrire mais le nombre de contrat étant variable cela pose problème!
Pouvez-vous m'aider ?
Merci beaucoup !

[Heureux-oli]

On devrait pouvoir le faire en VBA.

Code :

ActiveDocument.ActiveWindow.PrintOut Range:=wdPrintFromTo, from:="3", to:="3"

Avec une boucle

Code :

1
2
3
For n = 1 to ActiveDocument.ActiveWindow.Panes(1).Pages.Count Step 3
ActiveDocument.ActiveWindow.PrintOut Range:=wdPrintFromTo, from:=n, to:=n
Next n

Il faut encore modifier un peu la méthode PrintOut pour choisir le bac et le reste du document.

[seb nantes]

Merci !
Je pense que c'est déjà 80% de la solution,
Je vois le principe mais pour moi vba = chinois !
Est-il possible da faire un algorithme du genre :

Code :

1
2
3
4
5
For page=1 to 9 step 3
{print page    on bac1
  print page+1 on bac2
  print page+2 on bac2}
next

avec, si possible, remplacé 9 par une variable contenant le nombre total de page?

Je me doutait que VBA serait la solution, ce n'est pas de la mauvaise volonté mais du manque de temps et de l'ignorance sur VBA : je ne serais jamais écrire cette macro seul...

Encore merci.

[Heureux-oli]

Petite explication

Code :

1
2
3
For n = 1 to ActiveDocument.ActiveWindow.Panes(1).Pages.Count Step 3
ActiveDocument.ActiveWindow.PrintOut Range:=wdPrintFromTo, from:=n, to:=n
Next n

Avec
ActiveDocument.ActiveWindow.Panes(1).Pages.Count
qui donne le nombre de pages du document

si le document fait 9 pages, le valeur renvoyée sera 9

ActiveDocument.ActiveWindow.PrintOut Range:=wdPrintFromTo, from:=n +1, to:=n +2

Imprimera les autres pages, maintenant, il faut chercher les paramètres qu'il faut utiliser pour ton imprimante.

[seb nantes]

merci pour ces explications je vais essayer de trouver.
On me parle aussi de cette solution :

Avant d'imprimer se rendre dans le menu Fichier / Mise en page / Onglet Papier,
sélectionner le bac à entête pour la partie Première page et l'autre bac pour la partie Autres Pages,
vérifier que l'option Appliquer à Tout le document est bien sélectionnée, valider par OK puis imprimer.
(IL NE FAUT PAS UTILISER APPLIQUER A CETTE SECTION MAIS A TOUT LE DOCUMENT!)

Je vais essayer et je vous tiens informé !

[Heureux-oli]

Ça va fonctionner, mais c'est à faire pour chaque document, alors que la macro peut se résumer à un bouton.

En plus, il faudra faire une section par contrat, sans ça, il n'y aura que la première page qui sera imprimée différemment.