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
For i = 1 To qty
Printer1.Reset
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.
dentro de este zip esta los command ESC/P:
RPP320-Command Set (RT-V1.0)
Antes puedes probar esta APP. ver como te imprime los códigos de barra:
![]()