Incrémentation et sauvegarde pour X impressions

Bonjour à tous. Je navigue sur le web depuis un moment sans trouver de véritables réponses.

J'ai des cartes d'entrées gratuites qui sont créées sous Excel avec un numero propre. On me commande X cartes, et je dois incrémenter le numero de la carte pour chaque impression.

J'aimerais donc créer un code VBA qui lorsque je veux imprimer 100 cartes, il incrémente seul lors de l'impression, et à la fin sauvegarde le dernier numero imprimé...

L'imprimante utilisée est une HP LaserJet 1018
Y a t-il une solution simple? Sans avoir à imprimer page par page le temps que l'incrémentation se fasse, mais plutôt créer une incrémentation de groupe...

Merci d'avance pour votre aide.

Bonjour,

et bien quelque chose comme cela :

Code:

---

1 2 3 4 5 6

Sub test() For i = 1 To 100 Cells(1, 1) = i Sheets("Feuil1").PrintOut Next i End Sub

---

à adapter.

!!! Attention ça lance 100 Impressions !!!