Android Question Print via the local network

Sub NetworkPrinter_Connected (Successful As Boolean) As ResumableSub
    If Successful Then
        AStreams.Initialize(NetworkPrinter.InputStream, NetworkPrinter.OutputStream, "AStreams")
    End If
    Return Successful
End Sub

Sub ConnectPrinters(ipAddress As String, portNo As Int, timeOut As Int, timeToConnect As Int)As ResumableSub
    NetworkPrinter.Connect(ipAddress, portNo, timeOut)
    Dim timeCounter As Int = 0
    Dim connected As Boolean = False
    Do Until timeCounter = timeToConnect Or connected = True
        Sleep(1000)
        connected = NetworkPrinter.Connected
        timeCounter = timeCounter + 1
        Log(timeCounter)
    Loop
    Return connected
End Sub

Sub SendToPrinter (printerOutput As String)
    Wait For (ConnectPrinters("192.168.0.2", 9100, 0, 5)) Complete (connectedResult As Boolean)
    If connectedResult Then
        Log("Initialised")
        Log(printerOutput)
        AStreams.Write(printerOutput.GetBytes("UTF8"))
        NetworkPrinter.Close
    Else
        Log("Printer not initialised")
    End If
End If

        ProgressDialogShow("Conectado a Impresora. Favor Espere...")
        Dim p As Phone
        Wait For (p.ShellAsync("ping", Array As String("-c", "1",Principal.DirIpImpLANBodega))) Complete (Success As Boolean, ExitValue As Int, StdOut As String, StdErr As String)
        If Success And ExitValue=0 Then
            TMT20II.Connect(Principal.DirIpImpLANBodega, 9100, 0) '100=Printer address, 9100=Port number (please look up port number)
        Else
            ProgressDialogHide
            Msgbox("Impresora NO Conectada a la Red. Vuelva a Intentarlo","Mensaje!!!")
        End If

         AStreams.Write(printerOutput.GetBytes("UTF8"))
        Wait For (AStreams.OutputQueueSize = 0) Completed
        AStreams.SendAllAndClose
        NetworkPrinter.Close