Codigo de Barra Na Impressora Argox ou Rabit
Enviado: 05 Fev 2007 18:02
Ola Amigos!
Mai uma vez venho até a vossa presença, para me ajudarem na impressão de codigos de barra na impressora Argox ou Rabit. É o seguinte, conforme codigo fonte a seguir, eu consigo imprimir más o meu leitor otico não consegue lê, é como se o código de barra ficasse muito juntinho, sem poder identificar se a barra e fina ou grossa.
As linhas de comando antes da impressão da etiqueta, eu peguei de uma amigo no forum, me serve, más não sei o q significa, estas linhas de comando.
Por exemplo como fazer para diminuir a intensidade da impressão, ou seja imprimir mais claro.
Outra coisa, não consigo imprimir o padrão EAN-13.
Não é o meu leitor, porque eu peguei outra etiqueta com padrão EAN-13 e o leitor leu normal.
Minha etiqueta tem 5 cm de largura e 7,5 cm de altura, preciso imprimir em tres locais da etiqueta o codigo de barra, esta etiqueta tem tres divisões, por isso preciso imprimir nos treis locais.
Como já falei consegui arrumar a impressão bem lega mesmo, inclusive o Cliente gostou muito, só q o leitor não consegue lê.
Alguem pode me ajudar.
Já baixei um tutorial, todo em ingles más não consegui desenrolar ainda.
Um grande abraço
Select a_Bak
Do while wCont <= wQtdRec
@ 00,00 Say Chr(2)+'O0220'
@ 00,00 Say Chr(2)+'M3000'
@ 00,00 Say Chr(2)+'c0000'
@ 00,00 Say Chr(2)+'f250'
@ 00,00 Say Chr(2)+'e'
@ 00,00 Say Chr(2)+'LC0000'
@ 00,00 Say Chr(2)+':0002'
@ 00,00 Say Chr(2)+'H15'
@ 00,00 Say Chr(2)+'D11'
@ 00,00 Say Chr(2)+'SE'
@ 00,00 Say Chr(2)+'PE'
@ 00,00 Say Chr(2)+'R0000'
@ 00,00 Say Chr(2)+'z'
@ 00,00 Say Chr(94)+'01'
@ 00,00 Say '222100001300150R$'
@ 00,00 Say '2F0003001700030'+wCodSeq
@ 00,00 Say '222100001100150'+wValUni
@ 00,00 Say '232100001800150'+wTamRef
@ 00,00 Say '221100000900170'+wColPed
@ 00,00 Say '221100001800170'+wNomCor
@ 00,00 Say '221100001800180'+wCodFor
@ 00,00 Say '221100000900180'+wCodRef
@ 00,00 Say '221100001800190'+Substr(wDesRef,31,10)
@ 00,00 Say '221100001800200'+Substr(wDesRef,01,30)
@ 00,00 Say '2F0005001700210'+wCodSeq
@ 00,00 Say '232100001400260'+'Garage'
@ 00,00 Say 'Q0001'
@ 00,00 Say 'E'
wCont:=wCont + 1
Enddo
Select a_Bak
Mai uma vez venho até a vossa presença, para me ajudarem na impressão de codigos de barra na impressora Argox ou Rabit. É o seguinte, conforme codigo fonte a seguir, eu consigo imprimir más o meu leitor otico não consegue lê, é como se o código de barra ficasse muito juntinho, sem poder identificar se a barra e fina ou grossa.
As linhas de comando antes da impressão da etiqueta, eu peguei de uma amigo no forum, me serve, más não sei o q significa, estas linhas de comando.
Por exemplo como fazer para diminuir a intensidade da impressão, ou seja imprimir mais claro.
Outra coisa, não consigo imprimir o padrão EAN-13.
Não é o meu leitor, porque eu peguei outra etiqueta com padrão EAN-13 e o leitor leu normal.
Minha etiqueta tem 5 cm de largura e 7,5 cm de altura, preciso imprimir em tres locais da etiqueta o codigo de barra, esta etiqueta tem tres divisões, por isso preciso imprimir nos treis locais.
Como já falei consegui arrumar a impressão bem lega mesmo, inclusive o Cliente gostou muito, só q o leitor não consegue lê.
Alguem pode me ajudar.
Já baixei um tutorial, todo em ingles más não consegui desenrolar ainda.
Um grande abraço
Select a_Bak
Do while wCont <= wQtdRec
@ 00,00 Say Chr(2)+'O0220'
@ 00,00 Say Chr(2)+'M3000'
@ 00,00 Say Chr(2)+'c0000'
@ 00,00 Say Chr(2)+'f250'
@ 00,00 Say Chr(2)+'e'
@ 00,00 Say Chr(2)+'LC0000'
@ 00,00 Say Chr(2)+':0002'
@ 00,00 Say Chr(2)+'H15'
@ 00,00 Say Chr(2)+'D11'
@ 00,00 Say Chr(2)+'SE'
@ 00,00 Say Chr(2)+'PE'
@ 00,00 Say Chr(2)+'R0000'
@ 00,00 Say Chr(2)+'z'
@ 00,00 Say Chr(94)+'01'
@ 00,00 Say '222100001300150R$'
@ 00,00 Say '2F0003001700030'+wCodSeq
@ 00,00 Say '222100001100150'+wValUni
@ 00,00 Say '232100001800150'+wTamRef
@ 00,00 Say '221100000900170'+wColPed
@ 00,00 Say '221100001800170'+wNomCor
@ 00,00 Say '221100001800180'+wCodFor
@ 00,00 Say '221100000900180'+wCodRef
@ 00,00 Say '221100001800190'+Substr(wDesRef,31,10)
@ 00,00 Say '221100001800200'+Substr(wDesRef,01,30)
@ 00,00 Say '2F0005001700210'+wCodSeq
@ 00,00 Say '232100001400260'+'Garage'
@ 00,00 Say 'Q0001'
@ 00,00 Say 'E'
wCont:=wCont + 1
Enddo
Select a_Bak