choix imprimante

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
 

2passage

XLDnaute Impliqué
Bonjour,

c'est avec

Application.ActivePrinter = 'le nom de ton imprimante'

que tu choisis... attention, le nom doit etre exact

A+

Edit : oops.. le '=' etait resté dans le clavier...

Message édité par: 2passage, à: 12/08/2005 11:20
 

2passage

XLDnaute Impliqué
Bonjour,

Euh.. a part la fenetre Imprimer (Ctrl + P) ? je ne pense pas... par contre c'est faisable par User form. Le probleme, c'est que le nom de l'imprimante dans le système n'est pas celui utilisé par la propriété Activeprinter.. Donc il faut soit selectionner chaque imprimante et faire un debug.print activeprinter pour récuperer le nom exact soit utiliser les API windows, a moins que le nom utilisé par Excel soit quelque part dans le registre... je n'ai pas cherché plus que ça (je n'utilise ça que dans une macro pour basculer entre 2 imprimantes)
A+
 

Statistiques des forums

Discussions
312 913
Messages
2 093 534
Membres
105 752
dernier inscrit
fred13340