Recherche

Vous voulez imprimer un document d'une page dont le numéro de page serait de 1 à n copies du document imprimé.

Pour cela, une macro est nécessaire. Nous partons du principe que le document est fait et que vous avez inséré en bas de page un numéro de page. La macro suivante va vous demander le nombre de copies à imprimer et va numéroter chacune de ces copies de 1 à n.

Sub impr_serie()
Dim nb_copies, x
nb_copies = InputBox("Combien de copies voulez-vous imprimer ?")
For x = 1 To nb_copies
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.StartingNumber = x
ActiveDocument.PrintOut
Next
End Sub

Si vous ne démarrez pas toujours à la page 1, vous pouvez utiliser la macro suivante qui vous demandera avec quel numéro débuter :

Sub impr_serie()
Dim nb_copies, x
nb_copies = InputBox("Combien de copies voulez-vous imprimer ?"
depart = InputBox("Quel est le numéro de départ ?")
For x = To nb_copies
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.StartingNumber = depart + x
ActiveDocument.PrintOut
Next
End Sub
 

Statistiques

France 74,1% France
Canada 7,6% Canada
États-Unis d'Amérique 4,1% États-Unis d'Amérique

Total:

93

Pays
018288621
Aujourd'hui: 7
Hier: 268
Cette semaine: 1.462
Semaine dernière: 1.707
Ce mois: 1.198