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

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Applications Microsoft Office Excel inscrire le nombre d'impression sur le document ex 10fois n° 10

3 réponses

Dominique

31/05/2007 à 10:04

inscrire le nombre d'impression sur le document
exemple document imprimé 100 fois que ce nombre soit inscrit sur le document

3 réponses

Daniel

31/05/2007 à 10:24

Bonjour.
Dans "thisworkbook, mets la macro suivante :

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

Cordialement.
Daniel
"Dominique" a écrit dans le message de
news:

inscrire le nombre d'impression sur le document
exemple document imprimé 100 fois que ce nombre soit inscrit sur le
document

JB

31/05/2007 à 10:29

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

31/05/2007 à 13:34

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" a écrit dans le message de news:

inscrire le nombre d'impression sur le document
exemple document imprimé 100 fois que ce nombre soit inscrit sur le document

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

3 réponses

Veuillez sélectionner un problème