Imprimir en BlueTooth mas rapido

[smorandin]

Haciendo pruebas con los ejemplos que aqui encontre, logre hacer imprimir una serie de impresoras bluetooth, pero siempre tenia problemas como por ejemplo la velocidad, de repente "cortaba" la impresion, no imprimia, etc...

Bueno, cambiando la conexion del puerto anterior logre que mejorara un mundo:
hCom := CreateFile( ALLTRIM(cCOMPORT)+":", GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )

por esta forma:
hCom := CreateFile( ALLTRIM(cCOMPORT)+":", nor( GENERIC_WRITE, GENERIC_READ ), 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )

y el envio a la impresora la cambie por esto:
.
.
.
cText := memoread( cFile )
nLineas := mlcount( cText )

for lnPos := 1 to nLineas
cLinea := strtran( strtran( memoline( cText, ,lnPos ), chr(10), '' ), chr(13), '')
fwrite( hCom, rtrim(cLinea) + chr(13)+chr(10))
endfor
CloseHandle( hCom )

Recuerden que en los ejemplos se escribia byte a byte, y bueno, a mi me funciono de maravillas, pruebenlo a ver...

[Antonio Linares]

Sandro,

Muchas gracias por compartir esas mejoras con todos!