Spanish Imprimir por BT

wildfandango · Apr 3, 2018

Hola a todos

Estoy intentando imprimir por BT con una impresora termal POS

Os linko un POST de como lo hago y un un problemilla que tengo.

Mi pregunta es la siguiente

Como hago para imprimir todo el juego de caracteres?

he probado con decenas y al final uso CP858, pero tampoco me va bien, le faltan un montón de letras como ó y el €

Alguno habéis tenido el mismo problema...?

Gracias de antemano.

rscheel · Apr 3, 2018

Tienes que colocar si o si esta cadena al inicio de la impresión

B4X:

PrintBuffer=Chr(27)&"t"&Chr(16)&"Hello öäüßéèê" 'Set codepage 1252

rscheel · Apr 3, 2018

Tu código quedaría así

B4X:

Sub btPRINTER_Connected (Success As Boolean)
    Dim prnBUF As TextWriter
    Dim lstBUF As List
    Dim i As Int

    ' I dont know the apropiate CP for spanish chars like ó, ñ or €
    lstBUF = File.ReadList(dir, fic)

    If Success Then
        ProgressDialogShow2("Imprimiendo...", False)
        prnBUF.Initialize2(btCONN.OutputStream,"windows-1252")
        prnBUF.WriteLine(Chr(27)&"t"&Chr(16))
        For i = 0 To lstBUF.Size - 1
            prnBUF.WriteLine(lstBUF.Get(i))
        Next
        prnBUF.Flush
        prnBUF.Close
        ProgressDialogHide
        ToastMessageShow("("&lstBUF.Size&") Done...",False)
        btCONN.Disconnect
    Else
        Msgbox("ERROR...","ERROR BT")
    End If
End Sub

wildfandango · Apr 4, 2018

Muchas gracias!

Voy a probarlo con algunos de los Cambios propuestos por Erel (usar asyncstreams en lugar de textwriter)

Pero entiendo que por lo que me comentas el código quedaría así...

B4X:

Dim Astream As AsyncStreams
....
....

Sub btPRINTER_Connected (Success As Boolean)
    Dim txtENC As String
    Dim txtBUF As String

    dr = base.itemx(prnFIC,";",1)
    fc = base.itemx(prnFIC,";",2)

    txtENC = "windows-1252" ' Para que aparezca el simbolo del €
    txtBUF = Chr(27)&"t"&Chr(16)&CRLF&File.ReadString(dir, fic)

    If Success Then
        If Not(Astream.IsInitialized) Then Astream.Initialize(btCONN.InputStream,btCONN.OutputStream,"printerAS")
        Astream.Write(txtBUF.GetBytes(txtENC))
    Else
        Msgbox("ERROR...","ERROR BT")
    End If

    ' Al ser asíncrono si desconecto da error...
    ' btCONN.Disconnect
End Sub

En cuanto lo pruebe os confirmo si funciona.

wildfandango · Apr 4, 2018

Qué se supone que hace exactamente Chr(27)&"t"&Chr(16) ?

Lo he probado tal cual me dices con CP windows-1252 y nada el símbolo del euro sigue sin imprimirse

rscheel · Apr 4, 2018

wildfandango said:
Qué se supone que hace exactamente Chr(27)&"t"&Chr(16) ?

Lo he probado tal cual me dices con CP windows-1252 y nada el símbolo del euro sigue sin imprimirse

Esa linea coloca los caracteres especiales, por ejemplo los acentos las ñ y otro.

rscheel · Apr 4, 2018

Signo €

wildfandango · Apr 5, 2018

Pues yo no lo consigo...

te explico lo que hago a ver si puedes echarme una mano.

Cargo en un fichero .TXT todo lo que quiero imprimir en este caso es esto (adjunto el TXT):

El camión!
Que pasaba por Valença
era de Citroën
Fabricado en España
-----------------------
áéíóú
ÁÉÍÓÚ
- - - - - - - - - - - -
!¡¿?<>
ºª#$%&
{·€·}
_______________________
*[;,.:]
_ _ _ _ _ _ _ _ _ _ _ _

E imprimo con el siguiente código (previa lectura del fichero de texto):

B4X:

Sub twPRINT_Connected(Success As Boolean)
    Dim txtENC As String
    Dim dr,fc As String
    Dim lstBUF As List
    Dim tmp As String
    Dim i As Int

    dr = lib.itemx(prnFIC,";",1)
    fc = lib.itemx(prnFIC,";",2)

    txtENC = "windows-1252" ' No saca el símbolo del euro
    lstBUF = File.ReadList(dr, fc) ' Cargo el fichero de texto en una lista línea a línea

    If Success Then
        ToastMessageShow("Imprimiendo ("&lstBUF.Size&") Líneas...",False)
       
        prnBUF.Initialize2(btCONN.OutputStream,txtENC) 'inicializo con CP windows-1252

        prnBUF.WriteLine("€") ' Esto me imprime Ç
        prnBUF.Flush

        tmp = Chr(27)&"t"&Chr(16)&CRLF ' Utilizo la cadena que me recomendaste
        prnBUF.WriteLine(tmp)
        prnBUF.Flush

        prnBUF.WriteLine("€") ' Esto me imprime Ç también
        prnBUF.Flush

        For i = 0 To lstBUF.Size - 1 'Añado todas las líneas
            tmp = lstBUF.Get(i)
            ' no hacer demasiado caso a esto, son pruebas
            tmp = tmp.Replace(Chr(13),"")
            tmp = tmp.Replace(Chr(12),"")
            tmp = tmp.Replace(Chr(10),"")
            tmp = tmp.Replace(CRLF,"")
           
            prnBUF.WriteLine(tmp)
            prnBUF.Flush
           
            Sleep(10)
        Next
        Sleep(5000)
        prnBUF.Flush
        prnBUF.Close
        ToastMessageShow("("&lstBUF.Size&") Líneas Impresas/Enviadas...",False)
    Else
        Msgbox("No encuentro la impresora...","ERROR de impresora/BT")
    End If
End Sub

y lo que obtengo es lo que se ve en la foto

rscheel · Apr 5, 2018

wildfandango said:

Pues yo no lo consigo...

te explico lo que hago a ver si puedes echarme una mano.

Cargo en un fichero .TXT todo lo que quiero imprimir en este caso es esto (adjunto el TXT):

El camión!
Que pasaba por Valença
era de Citroën
Fabricado en España
-----------------------
áéíóú
ÁÉÍÓÚ
- - - - - - - - - - - -
!¡¿?<>
ºª#$%&
{·€·}
_______________________
*[;,.:]
_ _ _ _ _ _ _ _ _ _ _ _

E imprimo con el siguiente código (previa lectura del fichero de texto):

B4X:

Sub twPRINT_Connected(Success As Boolean)
    Dim txtENC As String
    Dim dr,fc As String
    Dim lstBUF As List
    Dim tmp As String
    Dim i As Int

    dr = lib.itemx(prnFIC,";",1)
    fc = lib.itemx(prnFIC,";",2)

    txtENC = "windows-1252" ' No saca el símbolo del euro
    lstBUF = File.ReadList(dr, fc) ' Cargo el fichero de texto en una lista línea a línea

    If Success Then
        ToastMessageShow("Imprimiendo ("&lstBUF.Size&") Líneas...",False)
      
        prnBUF.Initialize2(btCONN.OutputStream,txtENC) 'inicializo con CP windows-1252

        prnBUF.WriteLine("€") ' Esto me imprime Ç
        prnBUF.Flush

        tmp = Chr(27)&"t"&Chr(16)&CRLF ' Utilizo la cadena que me recomendaste
        prnBUF.WriteLine(tmp)
        prnBUF.Flush

        prnBUF.WriteLine("€") ' Esto me imprime Ç también
        prnBUF.Flush

        For i = 0 To lstBUF.Size - 1 'Añado todas las líneas
            tmp = lstBUF.Get(i)
            ' no hacer demasiado caso a esto, son pruebas
            tmp = tmp.Replace(Chr(13),"")
            tmp = tmp.Replace(Chr(12),"")
            tmp = tmp.Replace(Chr(10),"")
            tmp = tmp.Replace(CRLF,"")
          
            prnBUF.WriteLine(tmp)
            prnBUF.Flush
          
            Sleep(10)
        Next
        Sleep(5000)
        prnBUF.Flush
        prnBUF.Close
        ToastMessageShow("("&lstBUF.Size&") Líneas Impresas/Enviadas...",False)
    Else
        Msgbox("No encuentro la impresora...","ERROR de impresora/BT")
    End If
End Sub

y lo que obtengo es lo que se ve en la foto

Puedes adjuntar tu proyecto o solo la parte de la impresión para reviarlo.

wildfandango · Apr 5, 2018

Sin problema

Os adjunto el proyecto entero, estaba haciéndolo independiente con la idea de publicarlo aquí... cuando este terminado, aviso NO ESTA TERMINADO

cuando lo termine lo publicaré entero, porque creo que hace falta un ejemplo de impresión en condiciones en B4A....

Qué problemas le veo?

PRIMERO en modo textwriter funciona! pero no se me muestran los caracteres especiales y lo del Sleep(x) me parece un poco cutre.

SEGUNDO en modo AsyncStreams no me funciona en absoluto, se me come los enters! tb tengo que meterle el Sleep(x) sino no funciona... un lio... todo mal

B4A Versión: 8.00
Adjunto las libs que pueden ser menos comunes y captura de las libs que usa
He tenido que comprimir todo bastante para no superar el limite del foro...

rscheel · Apr 6, 2018

A mi me imprime el signo euro, prueba desconectando la batería de la impresora y volver a conectarla.

wildfandango · Apr 7, 2018

Ya he hecho eso varias veces y nada, será el modelo de impresora una brother PJ-763, no es un aparato barato precisamente.

La he reiniciado ya muchas veces...

Gracias de todos modos, este tema me tiene bastante quemado y lo dejaré aparcado por un tiempo...

Reinaldo · Apr 8, 2018

Te recomiendo que mire en el manual de la impresora que fuentes maneja y como se le indica la fuente que va a utilizar al momento de imprimir, por lo menos con las Zebra es asi, es decir, la fuente que se va a utilizar es la que debe tener el mapa de caracteres completo.

Dadaista · Apr 21, 2018

Hola

Cambia "windows-1252" por "ISO-8859-9"

Spanish Imprimir por BT

wildfandango

Member

rscheel

Well-Known Member

rscheel

Well-Known Member

wildfandango

Member

wildfandango

Member

rscheel

Well-Known Member

rscheel

Well-Known Member

Attachments

wildfandango

Member

Attachments

rscheel

Well-Known Member

wildfandango

Member

Attachments

rscheel

Well-Known Member

wildfandango

Member

Reinaldo

Member

Dadaista

Active Member