You can check the NE-ID (value 1 - 99)
using the following code:
your printer is for example: "HP-LJ-6"

sub ne_search ()
dim ne as sting, printer$, i%

printer = "HP-LJ-6"
on error resume next
for i = 1 to 99
ne = vba.format(i,"00")
err.number = 0
application.activeprinter = printer & ne & ":"

if err.number = 0 then
exit for
end if
next

end sub