IMPRIMIR CODE 128 ESC/POS DA BEMATECH?
Fala pessoal boa tarde!
Estou aqui a tarde toda cheio de papel na mesa tentando imprimir o maldito codigo code 128 do SAT no cupom fiscal
gostaria de saber quais os comandos que utilizo para imprimir eles certinho...
Hoje ja tenho esse codigo funcionando nas impressoras da sweda.
Obrigado
Estou aqui a tarde toda cheio de papel na mesa tentando imprimir o maldito codigo code 128 do SAT no cupom fiscal
gostaria de saber quais os comandos que utilizo para imprimir eles certinho...
Hoje ja tenho esse codigo funcionando nas impressoras da sweda.
Obrigado
Olha,
Bematech é a unica impressora que não consegui via ESC/POS, só na base da dll, eu fujo dessa impressora o maximo que posso.
Hoje em dia só indico Daruma, instalou acabou, nem de emulador precisa.
segue via dll.
Dim _Chave As String = Chave
[ô]**Gera chave de consulta quebrada
Dim Parte1 As String = _Chave.Substring(0, 4) & [Ô] [Ô]
Dim Parte2 As String = _Chave.Substring(4, 4) & [Ô] [Ô]
Dim Parte3 As String = _Chave.Substring(8, 4) & [Ô] [Ô]
Dim Parte4 As String = _Chave.Substring(12, 4) & [Ô] [Ô]
Dim Parte5 As String = _Chave.Substring(16, 4) & [Ô] [Ô]
Dim Parte6 As String = _Chave.Substring(20, 4) & [Ô] [Ô]
Dim Parte7 As String = _Chave.Substring(24, 4) & [Ô] [Ô]
Dim Parte8 As String = _Chave.Substring(28, 4) & [Ô] [Ô]
Dim Parte9 As String = _Chave.Substring(32, 4) & [Ô] [Ô]
Dim Parte10 As String = _Chave.Substring(36, 4) & [Ô] [Ô]
Dim Parte11 As String = _Chave.Substring(40, 4)
Dim _ChaveQuebrada As String = Parte1 & Parte2 & Parte3 & Parte4 & Parte5 & Parte6 & Parte7 & Parte8 & Parte9 & Parte10 & Parte11
Dim iRetorno As Integer
iRetorno = Bema.ConfiguraCodigoBarras(60, 0, 0, 1, 0)
iRetorno = Bema.ImprimeCodigoBarrasCODE128(Chave)
iRetorno = Bema.ComandoTX(_ChaveQuebrada, _ChaveQuebrada.Length)
iRetorno = Bema.ComandoTX(Chr(27) + [Ô]a[Ô] + Chr(0), 3)
Na minha classe Bema esta assim:
<DllImport([Ô]MP2032.dll[Ô])> _
Public Shared Function ConfiguraCodigoBarras(ByVal Altura As Integer, ByVal Largura As Integer, ByVal Posicao As Integer, ByVal Fonte As Integer, ByVal Margem As Integer) As Integer
End Function
<DllImport([Ô]MP2032.dll[Ô])> _
Public Shared Function ImprimeCodigoBarrasCODE128(ByVal Codigo As String) As Integer
End Function
<DllImport([Ô]MP2032.dll[Ô])> _
Public Shared Function ComandoTX(ByVal comando As String, ByVal tcomando As Integer) As Integer
End Function
Bematech é a unica impressora que não consegui via ESC/POS, só na base da dll, eu fujo dessa impressora o maximo que posso.
Hoje em dia só indico Daruma, instalou acabou, nem de emulador precisa.
segue via dll.
Dim _Chave As String = Chave
[ô]**Gera chave de consulta quebrada
Dim Parte1 As String = _Chave.Substring(0, 4) & [Ô] [Ô]
Dim Parte2 As String = _Chave.Substring(4, 4) & [Ô] [Ô]
Dim Parte3 As String = _Chave.Substring(8, 4) & [Ô] [Ô]
Dim Parte4 As String = _Chave.Substring(12, 4) & [Ô] [Ô]
Dim Parte5 As String = _Chave.Substring(16, 4) & [Ô] [Ô]
Dim Parte6 As String = _Chave.Substring(20, 4) & [Ô] [Ô]
Dim Parte7 As String = _Chave.Substring(24, 4) & [Ô] [Ô]
Dim Parte8 As String = _Chave.Substring(28, 4) & [Ô] [Ô]
Dim Parte9 As String = _Chave.Substring(32, 4) & [Ô] [Ô]
Dim Parte10 As String = _Chave.Substring(36, 4) & [Ô] [Ô]
Dim Parte11 As String = _Chave.Substring(40, 4)
Dim _ChaveQuebrada As String = Parte1 & Parte2 & Parte3 & Parte4 & Parte5 & Parte6 & Parte7 & Parte8 & Parte9 & Parte10 & Parte11
Dim iRetorno As Integer
iRetorno = Bema.ConfiguraCodigoBarras(60, 0, 0, 1, 0)
iRetorno = Bema.ImprimeCodigoBarrasCODE128(Chave)
iRetorno = Bema.ComandoTX(_ChaveQuebrada, _ChaveQuebrada.Length)
iRetorno = Bema.ComandoTX(Chr(27) + [Ô]a[Ô] + Chr(0), 3)
Na minha classe Bema esta assim:
<DllImport([Ô]MP2032.dll[Ô])> _
Public Shared Function ConfiguraCodigoBarras(ByVal Altura As Integer, ByVal Largura As Integer, ByVal Posicao As Integer, ByVal Fonte As Integer, ByVal Margem As Integer) As Integer
End Function
<DllImport([Ô]MP2032.dll[Ô])> _
Public Shared Function ImprimeCodigoBarrasCODE128(ByVal Codigo As String) As Integer
End Function
<DllImport([Ô]MP2032.dll[Ô])> _
Public Shared Function ComandoTX(ByVal comando As String, ByVal tcomando As Integer) As Integer
End Function
Obrigado nilsontres, irei continuar tentando pois consegui alguns progressos. Manterei o post aberto e assim que eu resolver eu posto a solução
Tópico encerrado , respostas não são mais permitidas