Dim Astream As AsyncStreams
....
....
Sub btPRINTER_Connected (Success As Boolean)
Dim txtENC As String
Dim txtBUF As String
dr = base.itemx(prnFIC,";",1)
fc = base.itemx(prnFIC,";",2)
txtENC = "UTF8" ' Still no € symbol
txtBUF = File.ReadString(dir, fic)
If Success Then
If Not(Astream.IsInitialized) Then Astream.Initialize(btCONN.InputStream,btCONN.OutputStream,"printerAS")
Astream.Write(txtBUF.GetBytes(txtENC))
Else
Msgbox("ERROR...","ERROR BT")
End If
' DO NOT DISCONECT!
' btCONN.Disconnect
End Sub