Patrick_Francis
XLDnaute Nouveau
Salut à tous,
Alors voila, petit souci. J'ai une macro qui séléctionne une zone bien précise, puis qui va dans la boite de dialogue d'impression, qui change l'imprimante pour se connecter à celle qui imprime en couleur, et voila la macro :
(désolé j'ai du remplacer le chemin par des x ca donne pleins d'infos et j'ose pas trop...)
Sub Print1()
'
' Print1 Macro
'
'
Range("B2:B4").Select
Range("B4").Activate
ActiveSheet.PageSetup.PrintArea = "$B$2:$B$4"
Application.ActivePrinter = "\\xxxxxxxx\PRINTER_COLOR on Ne11:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""\\xxxxxxxx\PRINTER_COLOR on Ne11:"",,TRUE,,FALSE)"
ActiveSheet.PageSetup.PrintArea = ""
Range("B3").Select
End Sub
ca marche nickel chez moi, mais chez mes collègues, ca marche pas... quand ils essaient, ca met la ligne suivante en jaune :
Application.ActivePrinter = "\\xxxxxxxx\PRINTER_COLOR on Ne11:"
Est-ce que quelqu'un sait pourquoi ca marche sur un poste et pas sur les autres ??
Merci mille fois !
P.
Alors voila, petit souci. J'ai une macro qui séléctionne une zone bien précise, puis qui va dans la boite de dialogue d'impression, qui change l'imprimante pour se connecter à celle qui imprime en couleur, et voila la macro :
(désolé j'ai du remplacer le chemin par des x ca donne pleins d'infos et j'ose pas trop...)
Sub Print1()
'
' Print1 Macro
'
'
Range("B2:B4").Select
Range("B4").Activate
ActiveSheet.PageSetup.PrintArea = "$B$2:$B$4"
Application.ActivePrinter = "\\xxxxxxxx\PRINTER_COLOR on Ne11:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""\\xxxxxxxx\PRINTER_COLOR on Ne11:"",,TRUE,,FALSE)"
ActiveSheet.PageSetup.PrintArea = ""
Range("B3").Select
End Sub
ca marche nickel chez moi, mais chez mes collègues, ca marche pas... quand ils essaient, ca met la ligne suivante en jaune :
Application.ActivePrinter = "\\xxxxxxxx\PRINTER_COLOR on Ne11:"
Est-ce que quelqu'un sait pourquoi ca marche sur un poste et pas sur les autres ??
Merci mille fois !
P.