D
David
Guest
Bonjour forum !
J'ai fait une macro qui imprime les zones d'impression que j'ai définit. La macro imprime plusieurs zones. Voici le code :
Sub imprim ()
ActiveSheet.PageSetup.PrintArea = '$B$4:$B$16'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$B$20:$B$144'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$B$149:$B$198'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$B$201:$B$398'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End sub
Mon souhait est de pouvoir rajouter un code avant qui permet de choisir avant de tout imprimer, quelles imprimmante utiliser.
Comment est ce que je peux faire ???
Merci d'avance
J'ai fait une macro qui imprime les zones d'impression que j'ai définit. La macro imprime plusieurs zones. Voici le code :
Sub imprim ()
ActiveSheet.PageSetup.PrintArea = '$B$4:$B$16'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$B$20:$B$144'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$B$149:$B$198'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$B$201:$B$398'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End sub
Mon souhait est de pouvoir rajouter un code avant qui permet de choisir avant de tout imprimer, quelles imprimmante utiliser.
Comment est ce que je peux faire ???
Merci d'avance