CAMBIOS EN IMPRESION

B4A/EscPosPrinter.bas

@@ -135,6 +135,40 @@ Public Sub Connect As Boolean
 	End Try
 End Sub
 
+
+Public Sub Connect2 As Boolean
+	'leos
+'	Serial1.Connect("88:6B:0F:3E:53:9E")
+'	Return True
+'	Try
+'		If Starter.MAC_IMPRESORA = "0" Then
+			Dim PairedDevices As Map
+			PairedDevices = Serial1.GetPairedDevices
+			Dim l As List
+			l.Initialize
+			For i = 0 To PairedDevices.Size - 1
+				l.Add(PairedDevices.GetKeyAt(i))
+			Next
+			Dim Res As Int
+			Res = InputList(l, "Choose a printer", -1) 'show list with paired devices 'ignore
+			If Res <> DialogResponse.CANCEL Then
+				Serial1.Connect(PairedDevices.Get(l.Get(Res))) 'convert the name to mac address
+				'Msgbox(PairedDevices.Get(l.Get(Res)),"mac")
+				Starter.mac_impresora = PairedDevices.Get(l.Get(Res))
+				Return True
+			End If
+			Return False
+'		Else
+'			Serial1.Connect(Starter.mac_impresora)
+'			'	Starter.mac_impresora = colonia.MAC_IMPRESORA
+'			Return True
+'		End If
+'	Catch
+'		Log(LastException)
+'	End Try
+End Sub
+
+
 ' Disconnect the printer
 Public Sub DisConnect
 	Serial1.Disconnect