Android Question Bluetooth printer

Dim o_Serial                     As Serial        ' Objeto que contiene la comunicacion con los dispositivos
Dim o_Printer                    As TextWriter    ' Objeto que contiene la informacion a imprimir
Dim o_Printer_Conected      As Boolean        ' Indica si la impresora está conectada

Sub cibutConectar_Click
    Dim PairedDevices        As Map
    '
    PairedDevices = Main.o_Serial.GetPairedDevices
    Dim l As List
    l.Initialize
    For i = 0 To PairedDevices.Size - 1
        lcPrinterName    = PairedDevices.GetKeyAt(i)
        l.Add(lcPrinterName)
    Next
    '
    Dim res As Int
    res = InputList(l, "Seleccione la Impresora", -1) 'show list with paired devices
    If res <> DialogResponse.CANCEL Then
        lcPrinterAddress    = PairedDevices.Get(l.Get(res))
        lcPrinterName        = l.Get(res)
        Msgbox("Conectarse a: " & l.Get(res), lcPrinterAddress)
        Main.o_Serial.Connect(lcPrinterAddress) 'convert the name to mac address
    End If

End Sub

    '
    ' NOTE: Main.ParPrinterDD and Main.ParPrinterDH contains the ESC/POS values.
    '
    Main.o_Printer.WriteLine(" ")
    Main.o_Printer.WriteLine(Main.ParPrinterDD & "TOTAL GENERAL")
    Main.o_Printer.WriteLine(Main.ParPrinterDH & "--------------------------")
    Main.o_Printer.WriteLine(Main.ParPrinterDH & "Registros: " & NumberFormat2(TotalNumRegistros,1,0,0,True))
    '
    Main.o_Printer.WriteLine(Main.ParPrinterDH & "--------------------------")
    Main.o_Printer.WriteLine(" ")
    Main.o_Printer.WriteLine(" ")
    Main.o_Printer.WriteLine(" ")
    Main.o_Printer.Flush