Desconexion bluetooth e impresion

[softruz]

Muy buenas, estoy intentando imprimir en una impresora start dp8340S via bluetooth y la cuestion es que el bluetooth de la PDA se desconecta cuando lleva un tiempo, el codigo que uso es:

static function ImprimeLinea(cTexto)
local n
local cConexion := CreateFile( "COM8:",GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )
cText:=cTexto+chr(10)+chr(13)+chr(12)
for n = 1 to Len( cTexto )
WriteByte( cConexion, Asc( SubStr( cText, n, 1 ) ) )
next
CloseHandle( cConexion )
return

No si si es problema de hardware o software, decirme que puedo hacer, yo he pensado en si hay algún código en el cual yo establezca la conexion y desconexion del bluetooth y así jugar yo con la PDA.

Gracias.
Un Saludo.