FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TXTPREVIEW
Posts: 42
Joined: Mon Jan 17, 2011 03:44 PM
TXTPREVIEW
Posted: Mon Oct 01, 2018 03: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.

Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: TXTPREVIEW
Posted: Mon Oct 01, 2018 05:21 PM

DOSPRINT.BAT?

És un puerto USB?

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 42
Joined: Mon Jan 17, 2011 03:44 PM
Re: TXTPREVIEW
Posted: Mon Oct 01, 2018 07: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...

Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: TXTPREVIEW
Posted: Mon Oct 01, 2018 07:55 PM
Intenta con PrintFileRaw()


Code (fw): Select all Collapse
   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
Posts: 42
Joined: Mon Jan 17, 2011 03:44 PM
Re: TXTPREVIEW
Posted: Thu Oct 04, 2018 01: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

Continue the discussion