Microsoft 365 Imprimer

dg62

XLDnaute Barbatruc

• 16 Juin 2019

• #2

Bonjour Grosduke

 

Vote positif 0 Vote négatif

grosduke

XLDnaute Nouveau

• 16 Juin 2019

• #3

Merci Dg62 mais voici ce que j'aimerais obtenir

Mon code:

Sub Imprimer()
Dim n As Variant
1 n = InputBox("Nombre de copies :", "Imprimer")
If n = "" Then Exit Sub
If Val(n) = 0 Then GoTo 1
Application.EnableEvents = False 'évite le lancement de BeforePrint
With ActiveSheet
For n = 1 To Val(n)
.[D13] = .[D13] + 1 'numérotation
.PrintOut
Next
End With
Application.EnableEvents = True
End Sub

Note: J'aimerais pouvoir inscrire sur chaque page le nombre de copies inscrit, quand j'obtient le message: Nombre de copies : disons 3, j'aimerais que le chiffre 3 s'écrive dans la cellule E13.

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 17 Juin 2019

• #4

re,
à essayer

VB:

Sub Imprimer()
Dim n As Integer
n = Application.InputBox("Nombre de copies :", "Imprimer", 1, , , , , Type:=1)
Application.EnableEvents = False
With ActiveSheet
For P = 1 To Val(n)
.[D13] = .[D13] + P 'numérotation
.PrintOut
Next
End With
Application.EnableEvents = True
End Sub

 

Vote positif 0 Vote négatif

grosduke

XLDnaute Nouveau

• 17 Juin 2019

• #5

Merci sauf que j'ai un message d'erreur à la ligne
.[D13] = .[D13] + P 'numérotation

 

Vote positif 0 Vote négatif

grosduke

XLDnaute Nouveau

• 17 Juin 2019

• #6

Quand j'écris le nombre de copies 3 , j'aimerais qu'il imprime au bas de chaque page
1 de 3
2 de 3
3 de 3

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 17 Juin 2019

• #7

Re

je n'ai pas de message d'erreur

VB:

Sub Imprimer()
Dim n As Integer
n = Application.InputBox("Nombre de copies :", "Imprimer", 1, , , , , Type:=1)
Application.EnableEvents = False
With ActiveSheet
For P = 1 To Val(n)
.PageSetup.LeftHeader = P & " / " & n                                              ' à tester
.PrintOut
Next             
End With
Application.EnableEvents = True
End Sub

 

Vote positif 0 Vote négatif

grosduke

XLDnaute Nouveau

• 17 Juin 2019

• #8

Je te remercie énormément dg62, cela m'aide beaucoup.

 

Vote positif 0 Vote négatif

grosduke

XLDnaute Nouveau

• 17 Juin 2019

• #9

dernière demande, comment pour grossir la fonte d'impression pour le résultat , parce qu'il imprime 1/2 en petit caractère

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 17 Juin 2019

• #10

grosduke à dit:

dernière demande, comment pour grossir la fonte d'impression pour le résultat , parce qu'il imprime 1/2 en petit caractère

Cliquez pour agrandir...

Bonjour grosduke, le forum

un code qui remplit toutes les conditions

VB:

Sub Imprimer()
Dim n As Integer
Dim libel As String
Dim police As String
Dim taille As String
Dim pge As Integer

'détermination police et taille
police = "Arial"
taille = 3


n = Application.InputBox("Nombre de copies :", "Imprimer", 1, , , , , Type:=1)
Application.EnableEvents = False
With ActiveSheet
For pge = 1 To Val(n)
libel = "  " & pge & " de " & n

    With .PageSetup
       .LeftFooter = "&""" & police & ",normal""" & "&" & taille & libel
    End With

.PrintOut
Next
End With
Application.EnableEvents = True
End Sub

 

Dernière édition: 17 Juin 2019

Vote positif 0 Vote négatif

grosduke

XLDnaute Nouveau

• 17 Juin 2019

• #11

La fonte reste encore très petite a l’impression

 

Vote positif 0 Vote négatif

grosduke

XLDnaute Nouveau

• 17 Juin 2019

• #12

J’ai essayé plusieurs taille mais rien n’a changé

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 17 Juin 2019

• #13

bonsoir
remplacer
.LeftFooter = "&""" & police & ",normal""" & "&" & taille & libel

par .LeftFooter = "&""Arial""" & "&16" & libel

 

Vote positif 0 Vote négatif

grosduke

XLDnaute Nouveau

• 18 Juin 2019

• #14

Merci, tout fonctionne à merveille.

 

Vote positif 0 Vote négatif