affichage imprimante active - modification intitulé

C

Catrice

XLDnaute Barbatruc

• 2 Mai 2007

• #2

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Mai 2007

• #3

Re : affichage imprimante active - modification intitulé

Bonjour Flop

essaye le code ci dessous :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

Flop

XLDnaute Occasionnel

• 2 Mai 2007

• #4

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

 

Vote positif 0 Vote négatif