liste imprimantes et leurs propriétés

Je pense qu'il faut que tu cases quelque part :

set Printer = prtLoop

ou quelque chose dans ce genre. Après quoi tu interroges Printer.

Il est possible aussi que tu doives faire un Printer.EndDoc pour faire un
reset (peut-être)

Christian

"steph" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2027f01c458f4$5ebd5f30$a501280a@phx.gbl...
bonjour,
j'essaie de récupérer le nom et les propriétés de toutes
les imprimantes du reseau . j'arrive à recuperer les nom
mais pas le reste il me donne toujours les meme
propriétés .

voici mon code :

Sub test()
Dim prtLoop As Printer

For Each prtLoop In Printers
With prtLoop
MsgBox "Device name: " & .DeviceName & vbCr _
& "Driver name: " & .DriverName & vbCr _
& "Port: " & .Port
End With
Next prtLoop

End Sub


pouvez vous m'aider ? merci

nb: pour info ce code provient des MSDN

en fait, je suis aperçu qu il me donne les propriétés de
l'imprimantes par defaut

J'ai essayé avec ce que tu m'as dis ça fait rien de plus

voici ce que j'ai à présent :

Sub test()
Dim prtDefault As Printer

Set Application.Printer = Application.Printers(0)

Set prtDefault = Application.Printer

With prtDefault
MsgBox "Device name: " & .DeviceName & vbCr _
& "Driver name: " & .DriverName & vbCr _
& "Port: " & .Port
End With

End Sub

en fait, je suis aperçu qu il me donne les propriétés de
l'imprimantes par defaut

J'ai essayé avec ce que tu m'as dis ça fait rien de plus

voici ce que j'ai à présent :

Sub test()
Dim prtDefault As Printer

Set Application.Printer = Application.Printers(0)

Set prtDefault = Application.Printer

With prtDefault
MsgBox "Device name: " & .DeviceName & vbCr _
& "Driver name: " & .DriverName & vbCr _
& "Port: " & .Port
End With

End Sub