affichage imprimante active - modification intitulé

[Flop]

salut à tous :

si je fais :

monimprimante = ActivePrinter 'récupérer imprimante active
MsgBox monimprimante

hp... sur Ne01

est ce qu'il est possible d'enlever la fin de la phrase soit :"sur Ne01"

merci d'avance.

 

[Catrice]

Re : affichage imprimante active - modification intitulé

bonjour,

Essaye ceci :
Sub test()
monimprimante = ActivePrinter 'récupérer imprimante active
MsgBox Left(monimprimante, InStr(1, monimprimante, " sur"))
End Sub

 

[Pierrot93]

Re : affichage imprimante active - modification intitulé

Bonjour Flop

essaye le code ci dessous :

monimprimante = Left(ActivePrinter, Len(ActivePrinter) - 8)

bon après midi
@+

 

[Flop]

Re : affichage imprimante active - modification intitulé

Les 2 solutions fonctionnent si ce n'est que dans celle de Pierrot il faut -9 ou -10 en lieu et place de -8 D
merci beaucoup à vous deux !!
A très bientot