Imprimante active

[jpaul625]

Bonjour a vous tous
J'ai deux imprimantes,et je me sert de une pour certaine chose et l'autre pour autre chose
Quand je me sert d'une imprimante,la ligne activePrinter sur Ne03, se change en Ne02
Es qu’il y a possibilité de figer activePrinter sur Ne03

Private Sub CommandButton2_Click()
Application.ActivePrinter = "Brother HL-2240 series sur Ne02:"
ExecuteExcel4Macro _
"PRINT(1,,,2,,,,,,,,2,""Brother HL-2240 series sur Ne01:"",,TRUE,,FALSE)"


Merci

 

[jpaul625]

Re : Imprimante active

Bonjour , en fait j'ai trois imprimante mais seulement deux dans excel
merci

 

[david84]

Re : Imprimante active

Bonjour,
je ne comprends pas bien ce que tu veux faire mais il est bien précisé dans l'aide d'Excel que cette propriété renvoie ou définit le nom de l'imprimante active. Tu peux donc tout à fait modifier le nom de l'imprimante active à la fin de la macro.
A+

 

[jpaul625]

Re : Imprimante active

Merci a toi
peut tu me préciser ce que je doit changer
merci

 

[david84]

Re : Imprimante active

Merci a toi
peut tu me préciser ce que je doit changer
merci

Pour cela il faudrait que tu précises :
- quel est le nom de l'imprimante active avant de lancer la macro
- quel est le nom de l'imprimante que tu veux utiliser pour imprimer
- quel est le nom de l'imprimante que tu veux replacer en imprimante active à la fin de la macro.
A+

 

[jpaul625]

Re : Imprimante active

Merci de répondre
l'imprimante active se Brother HL-2240
je veut utiliser l'imprimante Facture
Je veut remplacer brother HL-2240 par Facture a la fin du macro
(facture est le nom de l'imprimante

 

[david84]

Re : Imprimante active

Bonjour,
pour définir l'imprimante active :

Application.ActivePrinter = "Nom de l'imprimante que je choisis comme active"

(remplacer Nom de l'imprimante que je choisis comme active par le nom de l'imprimante en question).
Si tu veux ensuite utiliser la macro XL4 :

ExecuteExcel4Macro _
"PRINT(1,,,2,,,,,,,,2,"" & Application.ActivePrinter & "",,TRUE,,FALSE)"

mais tu peux aussi utiliser la méthode PrintOut (voir l'aide d'Excel).
A+

 

[jpaul625]

Re : Imprimante active Résolu

Merci
Cela ma été très utile