Ayuda Tdosprn en red XP Nuevamente

[Databaselab2002]

Estimados Colegas

Tengo problemas con el uso de tdospn en red XP
he probado de todas las formas posibles ,

******************************************************************
oPrn := TDosPrn():New("\\facturacion\lx300")
funciona a medias osea le mando impresion cuando cierro la
aplicacion me imprime, si le pongo al final del prg de impresion
oprn:end() me da error de array
*******************************************************************

**********************************************************
oPrn := TDosPrn():New("LPT1")
net use LPT1 \\servidor\nombre_de_impresora_compartida
Cuando quiero imprimir me sale el mensaje de tdosprn que
la impresora no esta en linea es como si quisiera tomar el puerto
local y no el que le puse autoexec.nt
************************************************************

Si Alguien me puede orientar que estoy haciendo mal o tiene la
clase modificada para que funcione en red

Desde ya muchas gracias
Fabian
databaselab2002@yahoo.com.ar