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
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