Clipper/FiveWin - IMPRESION CON TDOSPRN

Amigos.. estoy tratando de utilizar la clase TdosPrn y me da el siguiente error.

ERROR BASE 1132 Bound Error: Array Access

TdosPrn (593)

Ojo.. la impresora es un printer en red y envio a imprimir asi :

oPrn:=TdosPrn():New("\\cajera\pedidos")

agradecere su ayuda

juan

Pues va a ser que no.

TDosPrn solo funciona en impresoras conectadas a los puertos LOCALES del ordenador, no sirve para imprimir en red.

Puedes intentar capturar el puerto desde el panel de control de impresoras por ejemplo a LPT3:, y luego hacer un:

TDosPrn:():New("lpt3:")

pero no creo que funcione.

Amigo funciona igual que en CLIPPER lo que tienes que hacer si es windows XP es crear un puerto virtual

NET USE LPT2 \\SERVIDOR\IMPRESORA

No es mas espero te sirva...

Leandro Alfonso
Bogotá (Colombira)

Amigo, solo tienes que agregar dos lineas, y funciona muy bien

oPrn:=TdosPrn():New("\\cajera\pedidos")

//tu proceso de impresion

oPr:EndPage() //despues de esta linea agregar lo siguiente

//estas son las dos lineas que se deben agregar

oPr:= TDosPrn():New("LPT1")
oPr:lCanceled:=.T.

Opr:end()

Espero te sirvan