bonjour, je voudrais faire une boucle pour imprimer 4 zone d'impression différentes et relatives à la position
de départ d'une cellule. j'ai essayé différentes manières mais ça ne marche pas.
si vous avez la solution je vous remercie d'avance ...
voici le code :
Sub Macro12()
' Macro
'
Dim vadresse
Dim cpt1
Dim zone
vadress = ActiveCell.Address
For cpt1 = 1 To 4
zone = ActiveCell.Offset(2, 0).Range("A1:G8").Activate
ActiveSheet.PageSetup.PrintArea = zone
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveCell.Offset(8, 0).Range("A1").Activate
Next
Range(vadress).Offset(0, 0).Select
End Sub
cordialement
de départ d'une cellule. j'ai essayé différentes manières mais ça ne marche pas.
si vous avez la solution je vous remercie d'avance ...
voici le code :
Sub Macro12()
' Macro
'
Dim vadresse
Dim cpt1
Dim zone
vadress = ActiveCell.Address
For cpt1 = 1 To 4
zone = ActiveCell.Offset(2, 0).Range("A1:G8").Activate
ActiveSheet.PageSetup.PrintArea = zone
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveCell.Offset(8, 0).Range("A1").Activate
Next
Range(vadress).Offset(0, 0).Select
End Sub
cordialement