Macro pour imprimer
Résolu
noe2008
Messages postés
191
Statut
Membre
-
noe2008 Messages postés 191 Statut Membre -
noe2008 Messages postés 191 Statut Membre -
Bonjour,
je cherche a créer une macro pour but de changer la valeur de la cellule "Z7" de 1 à 10 et imprimer a chaque fois la page 2
j'ai crée une macro mais "Z7" reste uniquement dans la valeur 1 et imprime un très grand nombre de page sans s’arrêter
voila la macro :
Sub Macro1()
'
' Macro1 Macro
'
'
Dim i As Integer
For i = 1 To 10
i = Range("Z7").Value
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Next
End Sub
merci d'avance
je cherche a créer une macro pour but de changer la valeur de la cellule "Z7" de 1 à 10 et imprimer a chaque fois la page 2
j'ai crée une macro mais "Z7" reste uniquement dans la valeur 1 et imprime un très grand nombre de page sans s’arrêter
voila la macro :
Sub Macro1()
'
' Macro1 Macro
'
'
Dim i As Integer
For i = 1 To 10
i = Range("Z7").Value
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Next
End Sub
merci d'avance
