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
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Pocket PC Impresion en FWP PC
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).
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.
viewtopic.php?f=4t=4282p=18966hilit=generic+write#p18966
crear un archivo en disco y despues enviarlo a la impresora
Saludos,
Mauricio
&&&
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!
Don Antonio,
claro, aqu铆 esta
yo lo deje fijo para imprimir en el COM7.
Saludos,
Mauricio
claro, aqu铆 esta
#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 NILyo lo deje fijo para imprimir en el COM7.
Saludos,
Mauricio
Mauricio,
gracias!