Tenho uma combo que carrega as impressoras instaladas na maquina, no windows 98 funciona perfeitamente, mas no windows 2000 e xp só funciona se a impressoral estiver local, se não estiver trás como porta NE01:, oque dá problema na impressão.

 

Alguém pode me ajudar? Desde já agradeço.

 

Um abraço!

Qual o código que vc usa? É algo assim? :

 

dim x as printer
for each x in printers
    debug.print x.devicename
next

 

E qual tipo de impressora?

Isso mesmo, é esse o código. Só acrescentendo x.port, olha só o que retorna no windows 2000, com as impressoras em rede.

For Each x In Printers
    cboImp.AddItem x.DeviceName & " - " & x.Port
Next

Resultado:

\SERVIDOREpson LX-300 - Ne00:
\SERVIDORHP DeskJet 692C - Ne01:

 

Quando a inpressora é local, funciona bem, mas em rede a porta vem assim Ne00, Ne01...e por aí vai.

 

Atenciosamente.

 

Christian