Ayuda con wclApi y impresora (conectividad con bluetooth)

[thecirujano]

Estoy imprimiendo de esa forma tickets, lógicamente programe la detección del dispositivo y la conexión al mismo.

Código [Seleccionar] Expandir


    Dim s As String
    s = Chr$(27) + "P$" + Chr$(27) + "PP" + vbCrLf + "BeginPage();" + vbCrLf
    s = s + "SetPageSize(700,200);" + vbCrLf
    s = s + "DrawText(20,60,1,0,""<f=6><b>PRUEBAS DE IMPRESION"");" + vbCrLf
    s = s + "EndPage()" + vbCrLf + Chr$(27) + "P#" + vbCr + Chr$(4) + vbCrLf
    Dim arr() As Byte
    arr = StrConv(s, vbFromUnicode)
    resp = wclClient.Write(arr)

Mi pregunta es la siguiente al imprimir de esta manera pierdo todo control de errores de impresión, alguien ha trabajado de esta manera que me pueda encaminar para la detección de los errores.