Page 1 of 1
Impresion en FWP PC
Posted: Wed Nov 11, 2009 5:42 pm
by Mauricio
Hola,
por lo que e leido en el foro, parace que no se puede imprimir asi como en FWH.
si tengo un impresor toshiba tec, por bluetooh ya tengo el driver instalado, puedo hacer un report, igual como en fwh o no?
saludos,
Mauricio
Re: Impresion en FWP PC
Posted: Thu Nov 19, 2009 3:03 am
by Antonio Linares
Mauricio,
La impresión en este tipo de impresoras, por bluetooth, es muy diferente a como se puede imprimir en un PC con Windows.
Basicamente se establece la conexión y se va enviando byte a byte. No es como en Windows PC que se genera una página y se vuelca entera a la impresora.
Es decir, es una impresión mucho más simple y básica, en comparación a las posibilidades que tenemos en un PC. Es por esto que la Clase TReport de FWH, no puede usarse tal cual en FWPPC.
Se podria hacer una clase muy simple y limitada. Casi que es preferible imprimir según las necesidades de la aplicación (tickets, etc).
Re: Impresion en FWP PC
Posted: Thu Nov 19, 2009 3:40 am
by Mauricio
Don Antonio
Gracias, leyendo aqui los post puede armar la impresion
ya tengo imprimiendo al 100% un Hand Held Dolphin 7600 y una impresora Toshiba TEC
basicamente use la informacion proveida en este hilo.
http://forums.fivetechsupport.com/viewt ... ite#p18966
crear un archivo en disco y despues enviarlo a la impresora
Saludos,
Mauricio
Re: Impresion en FWP PC
Posted: Thu Nov 19, 2009 8:49 am
by Antonio Linares
Mauricio,
Muy bien!
Te agradecemos si pones aqui algunos ejemplos que ya te funcionen para los que esten en la misma situación de necesidad de imprimir a impresora bluetooth, gracias!
Re: Impresion en FWP PC
Posted: Fri Nov 20, 2009 12:38 am
by Mauricio
Don Antonio,
claro, aquí esta
Code: Select all
#define GENERIC_READ 0x80000000
#define GENERIC_WRITE 0x40000000
#define OPEN_EXISTING 3
#define FILE_ATTRIBUTE_NORMAL 0x00000080
#define FILE_FLAG_OVERLAPPED 0x40000000
#define NEW_LINE chr(10)+chr(13)
/// otro codigo ....
static function ImprimeCorte(nContado, nCredito, nAbonos)
local nRen := 3, cCliente
local nImporte := 0
local nUnidades := 0, nTotal := 0
local hFile := fCreate(curdir() + '\corte.txt')
// datos del ticket
fwrite(hFile, ticket->Empresa + NEW_LINE)
fwrite(hFile, ticket->Direccion + NEW_LINE)
fwrite(hFile, ticket->Rfc + NEW_LINE)
fwrite(hFile, ticket->Tel + NEW_LINE)
fwrite(hFile, ticket->Vendedor + NEW_LINE)
fwrite(hFile, dtoc( date()) + space(5) + time() + NEW_LINE)
fwrite(hFile, replicate('-',32) + NEW_LINE)
fwrite(hFile,NEW_LINE)
fwrite(hFile, "CORTE DE VENTAS" + NEW_LINE)
fwrite(hFile, replicate('-',32) + NEW_LINE)
fwrite(hFile, 'Contado .. $ ' + transform(nContado,'99,999,999.99') + NEW_LINE)
fwrite(hFile, 'Credito .. $ ' + transform(nCredito,'99,999,999.99') + NEW_LINE)
fwrite(hFile, replicate('-',32) + NEW_LINE)
fwrite(hFile, 'Ventas.... $ ' + transform(nCredito+nContado,'99,999,999.99') + NEW_LINE)
fwrite(hFile, replicate('-',32) + NEW_LINE)
fwrite(hFile, 'Abonos..,. $ ' + transform(nAbonos,'99,999,999.99') + NEW_LINE)
fwrite(hFile, replicate('-',32) + NEW_LINE)
fwrite(hFile, replicate('_',32) + NEW_LINE)
fwrite(hFile, 'Total...... $ ' + transform(nCredito+nContado+nAbonos,'99,999,999.99') + NEW_LINE)
fwrite(hFile, replicate('-',32) + NEW_LINE)
fwrite(hFile,NEW_LINE)
fwrite(hFile,NEW_LINE)
fwrite(hFile,NEW_LINE)
fclose(hFile)
SendText( MemoRead( curdir()+ '\corte.txt')) //Envio al puerto serie
return nil
static FUNCTION SendText( cText )
//---------------------------------
LOCAL i, hOut := CreateFile( "COM7:",GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )
IF hOut==-1
MsgStop('No se pudo abrir el puerto de impresora')
ELSE
FOR i = 1 TO Len( cText )
WriteByte( hOut, Asc( SubStr( cText, i, 1 ) ) )
NEXT
CloseHandle( hOut )
ENDIF
RETURN NIL
yo lo deje fijo para imprimir en el COM7.
Saludos,
Mauricio
Re: Impresion en FWP PC
Posted: Sun Nov 29, 2009 11:32 am
by Antonio Linares
Mauricio,
gracias!