ActiveSheet.PrintOut Copies:=1, ActivePrinter:="***HP 840 C..."
Pour le nom précis de l'imprimante, tu vas dans le menu "Imprimer..." et tu relèves le nom indiqué dans la zone Nom. Eventuellement, si ça ne marche pas tel quel (dans ce cas je crois me souvenir qu'il imprime sur l'imprimante par défaut), tu peux compléter par ce qui est indiqué dans la zone "Où"
ex chez moi :
Nom : "HP Laserjet 4L"
Où : "LPT1:"
donc ActivePrinter sera :
"HP Laserjet 4L sur LPT1:"
On peut d'ailleurs ainsi rediriger une impression vers un fax par exemple, ça marche très bien.