Imprimer et remettre defaut

Résolu/Fermé

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 8 nov. 2012 à 14:09
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 9 nov. 2012 à 13:49

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:

Imprimer et remettre defaut
Remettre a zero un pc - Guide
Remettre clavier en azerty - Guide
Comment signer un pdf sans l'imprimer - Guide
Remettre clavier normal android - Guide
Imprimer en a5 - Guide

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
Modifié par pijaku le 8/11/2012 à 14:22

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

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
8 nov. 2012 à 18:05

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

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
9 nov. 2012 à 06:42

bonjour
cela fonctionne pas il me bloque sur le nom de l'imprimante
a bientôt

Réponse 2 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
9 nov. 2012 à 08:57

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

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
9 nov. 2012 à 09:54

merci de ta reponse rapide j'essai a midi je te tiens au courant
a bientot

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
9 nov. 2012 à 12:27

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

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
9 nov. 2012 à 12:34

vous etes sur du code
euh......... oui!
Avez vous lancé la macro test???

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
Modifié par surplus le 9/11/2012 à 13:03

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

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
9 nov. 2012 à 13:06

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.

Discussions similaires

A3 paysage en deux A4...est-ce possible?

Free, pénalités injustes

Discussions similaires

Newsletters