www.b4x.com
estimado su impresora imprime los comandos CPCL en bytes.
si usted envía a imprimir texto eso imprime y desea dar formato como tipo de letras, margenes, code de barras, debe utilizar comandos CPCL.
vea este ejemplo:
How to send ZPL commands through B4A
Hello fellows, I'm a Zebra Partner, and I want to know hoy to send ZPL printing language through B4A. I usually send this with Windows Mobile using vb.net (compact framework) making an Open COM1 device subrouting, sending ZPL language by Bluetooth. How can I do it with B4A? I'll appreciate...
' Send the contents of an array of bytes to the printer
' Remember that if the printer is expecting text the bytes will be printed as characters in the current code page
Public Sub WriteBytes(data() As Byte)
If Connected Then
Astream.Write(data)
End If
End Sub
' Send the string to the printer in IBM437 encoding which is the original PC DOS codepage
' This is usually the default codepage for a printer and is CodePage = 0
' Beware of using WriteString with Chr() to send numeric values as they may be affected by Unicode to codepage translations
' Most character level operations are pre-defined as UPPERCASE string variables for easy concatenation with other string data
Public Sub WriteString(data As String)
WriteString2(data, "IBM437")
End Sub
' Send the string to the printer in the specified encoding
' You also need to set the printer to a matching encoding using the CodePage property
' Beware of using WriteString2 with Chr() to send numeric values as they may be affected by codepage substitutions
' Most character level operations are pre-defined as UPPERCASE string variables for easy concatenatipon with other string data
Public Sub WriteString2(data As String, encoding As String)
Try
If Connected Then
Astream.Write(data.GetBytes(encoding))
End If
Catch
Log("Printer error : " & LastException.Message)
AStream_Error
End Try
End SubPrivate Sub PrintCodeBarCPCL
Dim CPCLcomand As String
CPCLcomand = "! 0 200 200 210 1"
Printer1.WriteString2(CPCLcomand, "gb2312")
CPCLcomand = "BARCODE 128 1 1 50 150 10 HORIZ."
Printer1.WriteString2(CPCLcomand, "gb2312")
CPCLcomand = "TEXT 7 0 210 60 HORIZ."
Printer1.WriteString2(CPCLcomand, "gb2312")
CPCLcomand = "FORM"
Printer1.WriteString2(CPCLcomand, "gb2312")
CPCLcomand = "PRINT"
Printer1.WriteString2(CPCLcomand, "gb2312")
End Sub' Send the string to the printer in the specified encoding
' You also need to set the printer to a matching encoding using the CodePage property
' Beware of using WriteString2 with Chr() to send numeric values as they may be affected by codepage substitutions
' Most character level operations are pre-defined as UPPERCASE string variables for easy concatenatipon with other string data
Public Sub WriteString2(data As String, encoding As String)
Try
If Connected Then
Astream.Write(data.GetBytes(encoding))
End If
Catch
Log("Printer error : " & LastException.Message)
AStream_Error
End Try
End SubPrivate Sub PrintCodeBarCPCL
Dim CPCLcomand As String
CPCLcomand = "! 0 200 200 210 1" & CRLF
Printer1.WriteString2(CPCLcomand, "gb2312")
CPCLcomand = "BARCODE 128 1 1 50 150 10 HORIZ." & CRLF
Printer1.WriteString2(CPCLcomand, "gb2312")
CPCLcomand = "TEXT 7 0 210 60 HORIZ." & CRLF
Printer1.WriteString2(CPCLcomand, "gb2312")
CPCLcomand = "FORM" & CRLF
Printer1.WriteString2(CPCLcomand, "gb2312")
CPCLcomand = "PRINT" & CRLF
Printer1.WriteString2(CPCLcomand, "gb2312")
End SubNo he dicho nada, perdón.
