Imprimer et remettre defaut

Résolu
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -  
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -
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




A voir également:

2 réponses

Réponse 1 / 2
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
merci
mais pour ma comprehension
la macro elle dit de mettre series blanc par defaut puis
Application.ActivePrinter = ImprimanteParDefaut
si on met blanc par defaut elle reste pas par defaut?
je pensais qu'il fallait faire
Application.ActivePrinter = "Brother HL-5250DN series Blanc"
puis
Application.ActivePrinter = "Brother HL-5250DN en tete"
pourquoi non?
merci de cette lumiere
a bientot
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
bonjour
cela fonctionne pas il me bloque sur le nom de l'imprimante
a bientôt
0
Réponse 2 / 2
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
merci de ta reponse rapide j'essai a midi je te tiens au courant
a bientot
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
vous etes sur du code parce que je peux mettre les noms que je veux ça marche pas quand je fais un debogage dans la ligne
Application.ActivePrinter = "ICI METS LE VRAI NOM DE TON IMPRIMANTE"
il presente touj celle par defaut meme en changeant le nom
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
vous etes sur du code
euh......... oui!
Avez vous lancé la macro test???
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
oui je l'ai fait
\\Atelier1\Brother HL-5250DN series BLANC sur Ne02:
en mettant ça ou en elevant les: ça bloque la dessus entre guillemets" bien sur
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Alors je ne sais pas...

Perso quand je lance la macro test, le chemin relatif de mes imprimantes n'apparait pas.
J'obtiens donc, par exemple :
Brother HL-5250DN series BLANC sur Ne02:
au lieu de :
\\Atelier1\Brother HL-5250DN series BLANC sur Ne02:

Par conséquent, essaye juste avec:
Brother HL-5250DN series BLANC sur Ne02:

Et oui, entre guillemets et avec les deux points.
0