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
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
Bonjour grosduke, le forumdernière demande, comment pour grossir la fonte d'impression pour le résultat , parce qu'il imprime 1/2 en petit caractère
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