changer numero pied d page selon nombre feuilles imprimées

Le
numero de page
comment faire pour imprimer plusieurs une feuille plusieurs fois et changer
le numero de page automatiquement .
ex imprimer une feuille 20 fois et le numero de page passe de 01 à
02,03..jusqu'au 20 dans le feuille n°20 201 dans la feuuille n°21 .
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Youky
Le #6554761
Salut bien,
En passant par une macro qui demande le nombre de copies, voici

Sub Macro1()
Dim k As Integer
On Error Resume Next
k = InputBox("Nombre de copies", "IMPRESSION")
If k = "" Then Exit Sub
If Not IsNumeric(k) Then Exit Sub
For k = 1 To k
ActiveSheet.PageSetup.CenterFooter = k
ActiveSheet.PrintOut
Next
End Sub

Youky
"numero de page" message de news:
comment faire pour imprimer plusieurs une feuille plusieurs fois et
changer
le numero de page automatiquement .
ex imprimer une feuille 20 fois et le numero de page passe de 01 à
02,03.....jusqu'au 20 dans le feuille n°20 201 dans la feuuille n°21
.......


Publicité
Poster une réponse
Anonyme