choix imprimante

[David]

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]

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

 

[DAniel]

Bonjour 2assage et merci !

Mais existe t'il une boite de dailogue pour choisir l'imprimante parmis celle qui existes ??

 

[2passage]

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+

 

[Daniel]

Ok ! je vais abandonner le projet alors :whistle: . trop complexe :sick: !! Merci beaucoup pour l'aide 2passage! 🙂

 

[PascalXLD]

Bonjour

Je ne sais pas si tu verras ce message car 4 mois après la bataille :whistle: mais tu peux le faire ainsi

If Application.Dialogs(xlDialogPrinterSetup).Show = True Then activesheet.PrintOut