imprimer et remettre defaut Résolu/Fermé

Question

Bonjour, 
j'ai 2 imprimantes qui en fait est est la meme avec 2 bacs
\comptatelier\Brother HL-5250DN series Blanc' imprimante1
\comptatelier\Brother HL-5250DN series En Tete 'par defaut en permanence
je voudrais faire une macro qui imprime sur l'imprimante une et qui remette l'imprimante par defaut comme avant
comment proceder
merci
a bientot




Configuration: Windows XP / Internet Explorer 8.0

pijaku · Answer

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

pijaku · Answer

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

Imprimer et remettre defaut

2 réponses