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