Spanish Etiquetas de codigo de barras

Tico.13

Member
Hola a todos! alguien que imprima en etiquetas de codigo de barra, mi b4a app imprime pero no respeta el tamano de las etiquetas, estoy utilizando la clase EscPosPrinter
 

TILogistic

Expert
Licensed User
Longtime User
Marca de la impresora?

Vi que comentaste en este post, estas utilizando esta clase:

 

Tico.13

Member
Gracias Oparra, la marca de la impresora es Rongta, es china y si, estoy utilizando esa clase para imprimir
 

Tico.13

Member
La situación que tengo con esta impresora es que al enviar a imprimir más de 2 etiquetas de código de barra empieza a imprimir fuera del espacio de etiquetas o pareciera que no reconoce el salto de cara etiqueta, por lo tanto escribí en el foro de inglés y me dijeron que podría ser problema del buffer.

Mi b4a app lo que hace es escanear el código de barra de “x” producto, consulta la bdd, muestra la info del producto y enviar a imprimir para re etiquetar por cambio de precios o etiqueta dañada, etc ...
 

TILogistic

Expert
Licensed User
Longtime User
ok, entiendo.

el modelo de la impresora para ver sus especificaciones.

Sube tu proyecto o la rutina donde imprimes la etiqueta.

Saludos,
 

Tico.13

Member
Muchas gracias Oparra, el modelo es RPP320, según la descripción es para etiquetas.

Al estar en la compu subo el proyecto!

saludos
 

Tico.13

Member
Rutina de Impresion:
Sub Button4_Click                                                'Imprimir
    'Printer1.Reset
    'Printer1.WriteString(Printer1.BOLD & EditText1.Text & CRLF)
    qty = EditText5.Text
    Log("Cantidad a Imprimir: " & EditText5.Text)
    Dim now As Long
    Dim dt As String
    DateTime.DateFormat = "dd-MM-yy"
    dt = DateTime.Date(DateTime.now)
    For i = 1 To qty
        
        If EditText4.Text > 0 Then
            Printer1.WriteString(EditText2.Text  & CRLF)
            Printer1.WriteString(Printer1.SINGLE & "Precio: "  & Printer1.WIDE & NumberFormat2(EditText3.Text,1,2,2,False) & Printer1.SINGLE & "     Oferta: " & Printer1.WIDE & NumberFormat2(EditText4.Text,1,2,2,False) & CRLF)
            'Printer1.Justify = 2 al salir en vivo utilizar este para alinear
            Printer1.WriteString(Printer1.SINGLE & "                    Descto: " & Printer1.BOLD & percent & "%" &CRLF)

        Else
            Printer1.CharacterFont = 1
            Printer1.Justify = 1
            Printer1.WriteString(Printer1.WIDE & "L: "  & Printer1.WIDE & formatter.Format(EditText3.Text) & CRLF)
        End If
        Printer1.WriteString(EditText2.Text  & CRLF)
        'Imprime Codigo de Barra
        If EditText1.Text.Length > 8 Then
            Dim ht As Int = 60
            Printer1.BarCodeLeft = 0
            Printer1.BarCodeWidth = 1
            Printer1.Justify = 1
            Printer1.HRIposn = 0
            Printer1.HRIfont = 1
            Printer1.BarCodeHeight = ht
            Printer1.WriteBarCode("E", EditText1.Text) ' CODE39   OK
        Else
            Dim ht As Int = 60
            Printer1.BarCodeLeft = 0
            Printer1.BarCodeWidth = 2
            Printer1.Justify = 1
            Printer1.HRIposn = 0
            Printer1.HRIfont = 1
            Printer1.BarCodeHeight = ht
            Printer1.WriteBarCode("E", EditText1.Text) ' CODE39   OK
    
        End If
        Printer1.WriteString(Printer1.SINGLE & EditText1.Text & "   "  & Printer1.SINGLE & alias.Text & " " & Printer1.SINGLE & dt & CRLF)
        Printer1.WriteString(""& CRLF)
    Next
End Sub
 

TILogistic

Expert
Licensed User
Longtime User
Pregunta: cuando usas el demo de Bluetooth ESC/POS Printer Class he imprimes código barras, te imprime con el problema de salto de linea.
 

Tico.13

Member
Acabo de intentar pero no hubo cambio, intenté poner el reset donde me indicaste y también al final de la impresión pero obtuve el mismo resultado.
 

Tico.13

Member
Pregunta: cuando usas el demo de Bluetooth ESC/POS Printer Class he imprimes código barras, te imprime con el problema de salto de linea.

Intente esto tambien e igual, imprime corrido, no hace ningun salto o no reconoce la etiqueta
 

Tico.13

Member
dentro de este zip esta los command ESC/P:

RPP320-Command Set (RT-V1.0)


Me podrias por favor ayudar a entender como aplicar uno de estos:

ESC d n
[Name] Print and feed n lines
[Format] ASCII ESC d n
Hex 1B 64 n
Decimal 27 100 n
[Range] 0 n 255
[Description] Prints the data in the print buffer and feeds n lines.
[Notes] This command sets the print starting position to the beginning of the line.
 This command does not affect the line spacing set by ESC 2 or ESC3.
 The maximum paper feed amount is 1016 mm (40 inches). If the
paper feed amount (n line spacing) of more than 1016 mm
(40 inches) is specified, the printer feeds the paper only 1016 mm (40 inches).
[Reference] ESC 2, ESC 3

ESC J n
[Name] Print and feed paper
[Format] ASCII ESC J n
Hex 1B 4A n
Decimal 27 74 n
[Range] 0 n 255
[Description] Prints the data in the print buffer and feeds the paper [nX0.125 mm (0.0049”)].
[Notes] After printing is completed, this command sets the print starting position to the beginning of the line.
 The paper feed amount set by this command does not affect the values set by ESC 2 or ESC 3.
 In standard mode, the printer uses the vertical motion unit (y).
 

TILogistic

Expert
Licensed User
Longtime User

Attachments

  • Screenshot_20201229-125104.png
    Screenshot_20201229-125104.png
    44.6 KB · Views: 158
  • Screenshot_20201229-125046.png
    Screenshot_20201229-125046.png
    51.5 KB · Views: 170
  • Screenshot_20201229-125120.png
    Screenshot_20201229-125120.png
    32.1 KB · Views: 158
  • Screenshot_20201229-125132.png
    Screenshot_20201229-125132.png
    45.5 KB · Views: 165
Top