Spanish [SOLUCIONADO] Impresión Bluetooth con Android 16

Sub Globals
Dim btAdmin As BluetoothAdmin
Dim printer As Serial

Sub printer_tiquet
	

	btAdmin.Initialize("BlueTeeth")

	printer.Initialize("StarPrinter")
	StartPrinter
	
End Sub

Sub StartPrinter
	
	printer.Connect(IdentImpresora)
	
End Sub

Sub StarPrinter_Connected (Success As Boolean)
	
	If Success Then
		Imprimo ticket
	End If
End Sub

AddPermission(android.permission.BLUETOOTH_CONNECT)
AddPermission(android.permission.BLUETOOTH_SCAN)

Dim Permissions As List
Dim phone As Phone
If phone.SdkVersion >= 31 Then
   Permissions = Array("android.permission.BLUETOOTH_SCAN", "android.permission.BLUETOOTH_CONNECT")
End If
 For Each per As String In Permissions
    rp.CheckAndRequest(per)
    Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
    If Result = False Then
       ToastMessageShow("No permission: " & Permission, True)
       Return
    End If
 Next