How do I create a list of ACTIVE printers?

[MushMouse]

I use a laptop & connect to different networks.
I have the following code to create a list of printers:

Dim prtLoop As Printer
Dim varItem As Variant
PrinterList.DefaultValue = ""
For Each prtLoop In Application.Printers
PrinterList.AddItem Item:=prtLoop.DeviceName
Next prtLoop

My problem is that any printer I have ever used on any network shows up. How can I limit it to just the printers that are currently available?

Much thanks in advance....

 

[hermanlaksko]

Have a table with "accepted" printers and then check the "incomming printers" against this table, if the printer is ok, add it else drop it.


Herman
Say no to macros