Sub ImprimeEnCouleur()
'Valable pour une TOSHIBA eStudio 2500c
SendKeys "%F" 'Ouvre le menu Fichier
SendKeys "I" 'Lance la rubrique Imprimer
SendKeys "%N" ' Menu Nom de l'imprimante dans la liste de choix c'est la 2ème/4 en partant du haut
SendKeys "{UP 4}" 'On remonte tout en haut de la liste de choix
SendKeys "{DOWN}" 'On choisit la 2ème ! Je ne sais pas faire plus clean ;)
SendKeys "%r" 'Menu Propriétés de l'imprimante
SendKeys "%o" ' Rubrique mise en couleur dans la liste de choix, c'est le 1er sur 4
SendKeys "{UP 4}" 'On remonte tout en haut! Je ne sais pas faire plus clean ;)
SendKeys "~" 'OK pour cette fenêtre propriété
SendKeys "~" 'OK pour cette fenêtre impression
End Sub