Bonjour à tous,


Je rencontre un problème, je fais choisir l'imprimante de son choix à l'utilisateur depuis une liste que je récupère sur le poste et que j'affiche dans une listebox.
Je récupère bien son nom sous le bon format en français avec la variable "ret" puis je stock le nom de l'imprimante par défaut comme ceci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
STDprinter = Application.ActivePrinter
Application.ActivePrinter = ret
    ' change printer
   Ledoc.Application.ActiveDocument.PrintOut , Copies:=UserForm8.ComboBox6.Value
  ' prints the active sheet
    Application.ActivePrinter = STDprinter
  '------------------------------------------------------>
en pas à pas il y a bien le nom de l'imprimante par défaut , le nom de l'imprimante choisie en remplacement puis il remet l'ancien imprimante par défaut.
Sauf que malgré le changement il continu a imprimer sur STDprinter !!!!


avez-vous des idées ????

Merci par avance pour vos aides