Search the Community
Showing results for tags 'argox - barras'.
-
Boa noite amigos. Tenha a impressão de etiquetas na Argox (vou colocar o código abaixo). Mas estou com um probleminha na impressão, não chega a impedir o uso da etiqueta, mas o cliente não quer que aconteça mais isso. O que está acontecendo é que no início da ultima linha que mando imprimir aparece uma letra "C"... Aparece a letra "C" e logo após imprime os dados que enviei.. mas só na última linha, nas anteriores não.. Alguém tem alguma ideia da solução? Local cLetra, nHand, cLote Local cArqImp := "Argox.TXT" Local cPrinter := PrinterPortToName( "Argox214" ) * nHand:=fCreate(cArqImp) * * Controle de cabeçalho da impressora * fWrite(nHand, "L" + Chr(13)+Chr(10) ) fWrite(nHand, "m" + Chr(13)+Chr(10) ) fWrite(nHand, "e" + Chr(13)+Chr(10) ) fWrite(nHand, "K1701"+ Chr(13)+Chr(10) ) fWrite(nHand, "PC" + Chr(13)+Chr(10) ) fWrite(nHand, "D11" + Chr(13)+Chr(10) ) fWrite(nHand, "H14" + Chr(13)+Chr(10) ) fWrite(nHand, "z" + Chr(13)+Chr(10) ) * * Montagem da Etiqueta 01 * * Esquema basico de enderecamento de etiquetas * na ALLEGRO DATAMAX. * * 1 1 1 1 000 0005 0130 EVERTON LUIS BATTISTON * ÄÂÄÂÄÂÄÂ ÄÂÄ ÄÄÂÄ ÄÄÂÄ ÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ * ³ ³ ³ ³ ³ ³ ³ ÀÄÄÄÄÄÄÄÄÄÄÄ Texto a ser impresso * ³ ³ ³ ³ ³ ³ ³ * ³ ³ ³ ³ ³ ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ Posicao no eixo "X" * ³ ³ ³ ³ ³ ³ * ³ ³ ³ ³ ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ Posicao no eixo "Y" * ³ ³ ³ ³ ³ * ³ ³ ³ ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ Altura do codigo de barra 000 altura padrao * ³ ³ ³ ³ * ³ ³ ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ Largura da barra fina * ³ ³ ³ * ³ ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ Largura da barra larga * ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ Tipo de codigo de barra * ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ Orientacao anti-oraria: 1 - 0§, 2 - 240§, 3 - 180§, 4 - 90§ * * * Montagem da Etiqueta 01 * if !empty( Cod1 ) fWrite(nHand,"130002002400160" + "LH Laser" + CHR(13) + CHR(10) ) fWrite(nHand,"1F2205001400080" + Cod1 + CHR(13) + CHR(10) ) fWrite(nHand,"121100001000050" + Des1 + CHR(13) + CHR(10) ) fWrite(nHand,"190000200200050" + "CNPJ.:" + CNP1 + CHR(13) + CHR(10) ) endif * ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ * * SEGUNDA ETIQUETA * * ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ if !empty( Cod2 ) fWrite(nHand,"130002002400580" + "LH Laser" + CHR(13) + CHR(10) ) fWrite(nHand,"1F2205001400500" + Cod2 + CHR(13) + CHR(10) ) fWrite(nHand,"121100001000470" + Des2 + CHR(13) + CHR(10) ) fWrite(nHand,"190000200200470" + "CNPJ.:" + CNP2 + CHR(13) + CHR(10) ) endif * * Comandos de quantidade e finalização da impressora * fWrite(nHand,"Q"+ strzero( QtdeEtique, 4, 0 ) + Chr(13)+Chr(10) ) fwrite(nHand,"E" + Chr(13)+Chr(10) ) fClose(nHand) * cPrintEt := "Argox214" PrintFileRaw( cPrintEt, cArqImp, "Etiquetas - Estoque" ) * Ta ai.. Obrigado por qualquer dica! Att. Everton Battiston