inscrire le nombre d'impression sur le document ex 10fois n° 10

Le
Dominique
inscrire le nombre d'impression sur le document
exemple document imprimé 100 fois que ce nombre soit inscrit sur le document
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
Daniel
Le #4570041
Bonjour.
Dans "thisworkbook, mets la macro suivante :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
[feuil1!A1] = [feuil1!A1] + 1
End Sub

Cordialement.
Daniel
"Dominique" news:
inscrire le nombre d'impression sur le document
exemple document imprimé 100 fois que ce nombre soit inscrit sur le
document




JB
Le #4570011
Bonjour,


Le nombre de copies est affiché dans l'entête:

ncopies = 3
ActiveSheet.PageSetup.LeftHeader = "Copies:" & ncopies
ActiveSheet.PrintOut , , ncopies

JB


On 31 mai, 10:04, Dominique wrote:
inscrire le nombre d'impression sur le document
exemple document imprimé 100 fois que ce nombre soit inscrit sur le do cument


MichDenis
Le #4567931
Tu crées d'abord un nom caché par cette ligne
de code en vba
Names.Add "NbImpr", 0, False

Et à chaque impression, tu mettras dans la cellule désigniée
le no de la copie que tu fais, et ce, à chaque lancement
de l'impression.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim X As Integer
X = [NbImpr] + 1
Feuil1.Range("A1") = "No impression " & X
Names.Add "NbImpr", X
End Sub




"Dominique"
inscrire le nombre d'impression sur le document
exemple document imprimé 100 fois que ce nombre soit inscrit sur le document
Publicité
Poster une réponse
Anonyme