Imprimir Reporte d.o.s. por usb

[Fredy Villa]

Quisiera saber si alguien tiene una forma de como enviar un archivo TXT a puerto Usb.
Utilizo el copyfile para enviar  a un puerto lpt1 pero ahora q tengo impresora con conexion a Usb no imprime.
Gracias por la ayuda
 
 

[Oscar Díaz]

Estimado Fredy:

Prueba en D.O.S. con la siguiente instrucción:

c:\>NET USE LPT1: \\MIEQUIPO\IMPRESORAUSB

Si le funciona, coloca esa instrucción en un .bat ej: IMPR.BAT y lo agregar en inicio - todos los programas - inicio, para que cuando encienda el computador se cargue esa instrucción.

Saludos desde Bogotá.co

[walter cordova]

Comparte tu impresora digamos q lo llamaste (lx300)

luego creas un BAT q asocias el LPT1 a la impresora de red, asi

net use lpt1: \\mipc\lx300


eso es todo

--

Walter Cordova N.
Sistemas TQC

[Jairo Miranda]

Si es una matrix de puntos  puedes probar el dosusb

En :

www.portalprogramas.com/gratis/imprimir-dos-usb

jairo

[Jairo Miranda]

Prueba el programa dosUsb 

 

Jairo

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Fredy Villa
Enviado el: Lunes, 07 de Febrero de 2011 15:05
Para: publice...@googlegroups.com
Asunto: [vfp] Imprimir Reporte d.o.s. por usb

 

Quisiera saber si alguien tiene una forma de como enviar un archivo TXT a puerto Usb.

[LUIS GARCIA LLANOS]

Amigos disculpen que ingrese a su conversacion, pero tambien me urge saber esto, pues tengo un sistema en dos (clipper) que me vendieron hace muchos años. que imprime en impresoras matriciales (epson lx300), las impresoras ya estan bastante usaditas y debo cambiarlas. Pero las nuevas impresoras epson vienen con puertos usb. Acabo de enterarme por uds. que utilizando el programa dosUsb, puedo enviar la señal de la impresion por el puerto usb, como lo hago?
 

---

From: ja...@vidapanama.com
To: publice...@googlegroups.com
Subject: RE: [vfp] Imprimir Reporte d.o.s. por usb
Date: Tue, 8 Feb 2011 10:41:12 -0500

[Josepe]

Correcto.

net use lpt1: \\mipc\lx300

Donde el lx300 está conectado al usb y en el sharing del impresor has
puesto ese nombre a compartir (lx3000 y con los atributos para tu
usuario.

[miltonvas]

yo hago lo siguiente, en windows panel de control impresoras comparto
la impresora usb,
en el programa
envio la impresion a un archivo de texto (c:\tmp\toprint.txt)
ye ejecuto un achivo bat (toprint.bat)
en un archivo bat

net use lpt1 \\maquina\impresora
type c:\tmp\toprint.txt>lpt1
net use lpt1 /delete

*******************************genero archivo a texto
thisform.kfile="c:\tmp\xftp.TXT"
ERASE c:\tmp\xftp.txt
thisform.lp(CHR(27)+CHR(15),.t.)
thisform.lp("Reporte de Consumos en Bar")
thisform.lp(REPLICATE("-",39))
thisform.lp(PADR("Producto ",25)+" "+"CANT "+" "+"B/V")
thisform.lp(REPLICATE("-",39))
knoesta=.t.
DO WHILE .t.
IF EOF()
EXIT
ENDIF
IF estado="A"
IF knoesta
thisform.lp(REPLICATE("-",39))
thisform.lp("")
thisform.lp("")
thisform.lp("Anulados")
thisform.lp(REPLICATE("-",39))
thisform.lp(PADR("Producto ",25)+" "+"CANT "+" "+"B/V")
thisform.lp(REPLICATE("-",39))
knoesta=.f.
ENDIF
ENDIF
thisform.lp(LEFT(dscr,25)+" "+STR(cant,5,0)+" "+esbote)
SKIP
ENDDO
thisform.lp(REPLICATE("-",39))
thisform.lp("impr"+DTOC(DATE())+"/"+TIME())
FOR I=1 TO 10
thisform.lp("")
ENDFOR
loShell = CREATEOBJECT("Shell.Application")
loShell.ShellExecute("xprint.bat")
loShell = .NULL.

****************************procedimiento LP
LPARAMETERS kchad,knuevo
IF knuevo
STRTOFILE(kchad+CHR(10),thisform.kfile)
ELSE
STRTOFILE(kchad+CHR(10),thisform.kfile,.t.)
ENDIF

********************************contenido del archivo xprint.bat
net use lpt1 \\servidor\impretks &&esta impresora es cion puerto
usb pero esta compartida en
TYPE c:\tmp\xftp.txt>lpt1
net use lpt1 /delete
exit
**************************