IMPRESSAO DE ETIQUETAS JETWAY

ANDERSONHELP 31/10/2022 12:03:07
#500674
Bom dia tudo bem?
meu cliente comprou uma impressora de etiquetas da marca JETWAY modelo JL-100
Alguem ja desenvolveu para imprimir nesta impressora e modelo?
ANDERSONHELP 31/10/2022 12:05:06
#500675
nao achei nada na internet, se alguem tiver o codigo de como enviar os comandos para ela eu iria agradecer muito,
tipo imprimir texto normal e negrito e codigo de barras
obrigado
LUIS2014 31/10/2022 13:31:29
#500676
Resposta escolhida
ANDERSONHELP 31/10/2022 14:22:43
#500677
Caro Luis, agradeço pela ajuda, mas neste link tem apenas o manual do usuario, e la nao ensina a enviar os comandos para a impressora! mas mesmo assim, muito obrigado
KERPLUNK 31/10/2022 15:04:59
#500678
Não achei nada no site deles também, acho que voce vai ter que entrar em contato com o suporte.
MFLAVIO 31/10/2022 17:50:06
#500679
Cara tenta contato com contato@jetway.com.br
quando precisei de apoio par ao SAT deles foi ao que consegui material
LUIS2014 31/10/2022 22:11:06
#500682
Citação:

:
Caro Luis, agradeço pela ajuda, mas neste link tem apenas o manual do usuario, e la nao ensina a enviar os comandos para a impressora! mas mesmo assim, muito obrigado



mas no manual está dizendo que usa a linguagem TSPL2, pode usar ZPL.



  
Dim StrDescricao As String
Dim StrCod_Barras As String
Dim StrPreco As String
Dim StrData As String
Dim Comando As String


StrDescricao = "^FO20,05^AD,50,14^FD" & "COCA COLA 2LTS" & "^FS"
StrCod_Barras = "^FO30,80^BEN,60^FD" & "7890013301422145" & "^FS"
StrPreco = "^FO330,70^AD,100,25^FDR$ " & "7.99" & "^FS"

Dim Temperatura As String
Temperatura = "~SD" & txtTemperatura

Comando = "^XA" & Chr(13) & _
"~SD0" & Chr(13) & _
"^LH90,20" & Chr(13) & _
StrDescricao & Chr(13) & _
Temperatura & Chr(13) & _
StrCod_Barras & Chr(13) & _
StrPreco & Chr(13) & _
"^XZ"

Printer.Print Comando
Printer.EndDoc

ANDERSONHELP 01/11/2022 10:10:22
#500683
Citação:

:
:
Caro Luis, agradeço pela ajuda, mas neste link tem apenas o manual do usuario, e la nao ensina a enviar os comandos para a impressora! mas mesmo assim, muito obrigado

mas no manual está dizendo que usa a linguagem TSPL2, pode usar ZPL.



  
Dim StrDescricao As String
Dim StrCod_Barras As String
Dim StrPreco As String
Dim StrData As String
Dim Comando As String


StrDescricao = "^FO20,05^AD,50,14^FD" & "COCA COLA 2LTS" & "^FS"
StrCod_Barras = "^FO30,80^BEN,60^FD" & "7890013301422145" & "^FS"
StrPreco = "^FO330,70^AD,100,25^FDR$ " & "7.99" & "^FS"

Dim Temperatura As String
Temperatura = "~SD" & txtTemperatura

Comando = "^XA" & Chr(13) & _
"~SD0" & Chr(13) & _
"^LH90,20" & Chr(13) & _
StrDescricao & Chr(13) & _
Temperatura & Chr(13) & _
StrCod_Barras & Chr(13) & _
StrPreco & Chr(13) & _
"^XZ"

Printer.Print Comando
Printer.EndDoc


Caro Luis, mais uma mais obrigado, so me diz uma coisa, nesse codigo que me passou, onde configuro o X e o Y para posicionar cada campo e os tamanhos das fontes?
obs: deu certo viu! imprimiu certinho, porem so nao sei como faz o que mencionei acima
LUIS2014 01/11/2022 11:19:45
#500684
faz tempo que fiz esse módulo no meu sistema nunca mais alterei, então não lembro bem, mas achei esse manual de um outro software parece estar bem explicado cada código.
bluesoft
Tópico encerrado , respostas não são mais permitidas