TXTPREVIEW

TXTPREVIEW

Postby ltorres » Mon Oct 01, 2018 3:16 pm

Señores Buenos días
Desde el sábado, mis impresiones a matricial vía TXTPREVIEW, no están saliendo, analizando encontré que se queda en el DOSPRINT.BAT, si ejecuto el comando de impresión con el archivo temporal directo desde el DOS imprime, pero desde mi sistema no.
Agradezco de antemano su ayuda.
Atentamente
Luis Torres La Madrid.
ltorres
 
Posts: 42
Joined: Mon Jan 17, 2011 3:44 pm
Location: Lima - Peru

Re: TXTPREVIEW

Postby karinha » Mon Oct 01, 2018 5:21 pm

DOSPRINT.BAT?

És un puerto USB?

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7321
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: TXTPREVIEW

Postby ltorres » Mon Oct 01, 2018 7:46 pm

Si, lo direcciono a un LPT1 mediante un BAT que tiene:
"@echo off
net use lpt1 /delete
net use lpt1 \\ITAL005\epsonfx-890 /persistent:yes
pause"

Lo raro es que hasta el viernes funcionó perfectamente, pero a partir del sábado ya no imprime...
ltorres
 
Posts: 42
Joined: Mon Jan 17, 2011 3:44 pm
Location: Lima - Peru

Re: TXTPREVIEW

Postby karinha » Mon Oct 01, 2018 7:55 pm

Intenta con PrintFileRaw()


Code: Select all  Expand view

   PrintFileRaw( "\\NOMBPC\TMU220","C:\Reporte.txt")  //Nombre de PC y del recurso compartido.
 


Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7321
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: TXTPREVIEW

Postby ltorres » Thu Oct 04, 2018 1:10 pm

No logré encontrar solución, es un problema con el uso de la TDOSPRN y el TXTPREVIEW, todo va bien hasta que llega al DOSPRINT.BAT, no lanza la impresión.
Solo me a quedado rehacer los reportes uno por uno usando CmSay para ubicar la impresión en centimetros:
PRINT oPrn NAME "POSICION EN CAJA" PREVIEW
DEFINE FONT oFontL NAME "Lucida Console" SIZE 0, -08 OF oPrn // -20
nFilas:= 60
nFil:= oPrn:nVertRes()/ nFilas
nCol:= oPrn:nHorzRes()/ 144
....
F:= F+ 0.4
oPrn:CmSay(F, 00.50, rcuenta, oFontL)
oPrn:CmSay(F, 02.00, left( rdescripcio, 34), oFontL)
....
ENDPAGE
ENDPRINT
oFontL:End()

Saludos

Luis
ltorres
 
Posts: 42
Joined: Mon Jan 17, 2011 3:44 pm
Location: Lima - Peru


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 41 guests

cron