Imprimer et remettre defaut

Bonjour,

En utilisant une variable de type string comme ceci :

Sub Imprimer() 
Dim ImprimanteParDefaut As String 

'on stocke le nom de l'imprimante active (par défaut)
ImprimanteParDefaut = Application.activePrinter 
'on change l'imprimante active par la deuxième
Application.ActivePrinter = "Brother HL-5250DN series Blanc" 
'on imprime
ActiveSheet.PrintOut 
'on remet l'imprimante par défaut initiale
Application.ActivePrinter = ImprimanteParDefaut 
End Sub

Cordialement,
Franck P

Bonjour,

il me bloque sur le nom de l'imprimante
Hum!... Comment dire... Parce que ça n'est pas le bon nom d'imprimante peut-être...............

Alors pour savoir quel nom utiliser copie cette macro :

Sub test()

MsgBox Application.ActivePrinter
End Sub

Puis :
- fichier/Imprimer
- sélectionne l'imprimante que tu souhaites (dans ton exemple : \\comptatelier\Brother HL-5250DN series Blanc' imprimante1)
- clique sur fermer
- ALT+F8 choix "test" et exécuter
- recopie le nom (attention aux majuscules/minuscules et espaces...)

Puis dans le code donné précédemment, remplace "Brother HL-5250DN series Blanc" par le nom que tu as trouvé............................
Ca va aller???

Pour ton info (pourtant j'avais bien mis des commentaires explicatifs.........) la macro dit :
- copie le nom de l'imprimante active dans une variable
- change l'imprimante active par celle que je te dis
- imprime
- remets l'imprimante active initiale

Soit :

Sub Imprimer() 
Dim ImprimanteParDefaut As String 

'on stocke le nom de l'imprimante active (par défaut)
ImprimanteParDefaut = Application.activePrinter 
'on change l'imprimante active par la deuxième
Application.ActivePrinter = "ICI METS LE VRAI NOM DE TON IMPRIMANTE" 
'on imprime
ActiveSheet.PrintOut 
'on remet l'imprimante par défaut initiale
Application.ActivePrinter = ImprimanteParDefaut 
End Sub