oliveiros Posted March 30, 2015 Report Share Posted March 30, 2015 Bom dia! Estou precisando imprimir um comprovante com código de barras em uma impressora bematech MP4200 TH não fiscal, não sei nem por onde começar, alguém tem algum exemplo? Pelo menos de como utilizar a impressora? Desde já agradeço. Att., Oliveiros Junior Quote Link to comment Share on other sites More sharing options...
emotta Posted March 30, 2015 Report Share Posted March 30, 2015 use o driver normal do windows e imprima o código de barras da mesma maneira que imprime em uma impressora normal. use a classe TPrint para imprimir... Bom dia! Estou precisando imprimir um comprovante com código de barras em uma impressora bematech MP4200 TH não fiscal, não sei nem por onde começar, alguém tem algum exemplo? Pelo menos de como utilizar a impressora? Desde já agradeço. Att., Oliveiros Junior Quote Link to comment Share on other sites More sharing options...
oliveiros Posted March 30, 2015 Author Report Share Posted March 30, 2015 Olá Eduardo, Obrigado pela resposta. Vou testar e dou retorno aqui... Att., Oliveiros Junior Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 30, 2015 Report Share Posted March 30, 2015 Ola, Veja este modelo do Oscar Ribeiro se ajuda: // Imprime os textos da etiqueta na "ARGOX" // // CHR(002)+"L"+CHR(13) = Comando de entrada do formato da etiqueta // Formato Texto: // 1.2.1.1.000.0100.0050, onde: // 1 = Orientação da etiqueta // 2 = Fonte (0-8 com Subtipo 000 /ou/ 9 com Subtipo de 000 a 007 /ou/ : com subtipo 000 a 005) // 1 = Multiplicador Horizontal // 1 = Multiplicador Vertical // 000 = Subtipo da Fonte (000 a 007, depende da Fonte) - Quanto maior o número maior a fonte. // 0100 = Posição inicial Y (linha) máximo=101.6 // 0050 = Posição inicial X (coluna) máximo=762 // Exemplo: = oPrn:Say(1,1,CHR(002)+"L"+CHR(13)+"121100001000050"+"Esta é uma etiqueta teste"+CHR(13)+"E"+CHR(13)) // // Formato CodBar: // 1.2.1.1.000.0100.0050, onde: // 1 = Orientação da etiqueta // 2 = Tipo da Barra EAN13, 2-5 // 1 = Largura da Barra Largua // 1 = Largura da Barra Fina // 000 = Altura do Código de Barras // 0100 = Posição inicial Y (linha) máximo=101.6 // 0050 = Posição inicial X (coluna) máximo=762 // msginfo(cLin1+chr(13)+cLin2+chr(13)+cLin3+chr(13)+cLin4+chr(13)+cLin5+chr(13), cBar) IF Left(cEtqMod,1) == "A" // => ( 50 x 25 x 2 ) contador++ // Contador das (duas) Etiquetas na linha if contador=1 oPrn:Say(1, 1, CHR(002)+"L"+CHR(13) ) // * INICIA com o comando de entrada do formato da etiqueta oPrn:Say(1, 1, "H12"+CHR(13) ) // Qualidade oPrn:Say(1, 1, "D11"+CHR(13) ) // Densidade oPrn:Say(1, 1, "1X1100300780010L200018" ) // Negrito oPrn:Say(1, 1, "131100000780030"+cLin1+CHR(13) ) // nome da empresa oPrn:Say(1, 1, "141100000560030"+cLin2+CHR(13) ) // valor // oPrn:Say(1, 1, "121100000540030"+cLin3+CHR(13) ) // codigo oPrn:Say(1, 1, "121100000420030"+cLin4+CHR(13) ) // descricao1 oPrn:Say(1, 1, "121100000320030"+cLin5+CHR(13) ) // descricao2 oPrn:Say(1, 1, "1"+cTipBar+"5201800000030"+cBar +CHR(13) ) // Código de Barras elseif contador=2 oPrn:Say(1, 1, "1X1100300780220L200018" ) // Negrito oPrn:Say(1, 1, "131100000780240"+cLin1+CHR(13) ) // nome da empresa oPrn:Say(1, 1, "141100000560240"+cLin2+CHR(13) ) // valor // oPrn:Say(1, 1, "121100000540240"+cLin3+CHR(13) ) // codigo oPrn:Say(1, 1, "121100000420240"+cLin4+CHR(13) ) // descricao1 oPrn:Say(1, 1, "121100000320240"+cLin5+CHR(13) ) // descricao2 oPrn:Say(1, 1, "1"+cTipBar+"5201800000240"+cBar +CHR(13) ) // Código de Barras oPrn:Say(1, 1, "E"+CHR(13) ) // * ENCERRA a etiqueta contador = 0 endif ELSEIF Left(cEtqMod,1) == "B" // => ( 80 x 35 x 1 ) oPrn:Say(1, 1, CHR(002)+"L"+CHR(13) ) // * INICIA com o comando de entrada do formato da etiqueta oPrn:Say(1, 1, "H12"+CHR(13) ) // Qualidade oPrn:Say(1, 1, "D11"+CHR(13) ) // Densidade // oPrn:Say(1, 1, "1X1100500950010L200018" ) // Negrito // oPrn:Say(1, 1, "131100000950050"+cLin1+CHR(13) ) // nome da empresa oPrn:Say(1, 1, "161100000800050"+cLin2+CHR(13) ) // valor oPrn:Say(1, 1, "141100000500050"+cLin3+CHR(13) ) // codigo oPrn:Say(1, 1, "141100000250050"+cLin4+CHR(13) ) // descricao1 oPrn:Say(1, 1, "141100000040050"+cLin5+CHR(13) ) // descricao2 // oPrn:Say(1, 1, "1"+cTipBar+"0001800000050"+cBar +CHR(13) ) // Código de Barras oPrn:Say(1, 1, "E"+CHR(13) ) // * ENCERRA a etiqueta ELSEIF Left(cEtqMod,1) == "C" // => ( 35 x 25 x 3 ) contador++ // Contador das (tres) Etiquetas na linha if contador=1 oPrn:Say(1, 1, CHR(002)+"L"+CHR(13) ) // * INICIA com o comando de entrada do formato da etiqueta oPrn:Say(1, 1, "H12"+CHR(13) ) // Qualidade oPrn:Say(1, 1, "D11"+CHR(13) ) // Densidade oPrn:Say(1, 1, "1X1100300780010L120018" ) // Negrito oPrn:Say(1, 1, "121100000810012"+cLin1+CHR(13) ) // nome da empresa oPrn:Say(1, 1, "141100000560010"+cLin2+CHR(13) ) // valor // oPrn:Say(1, 1, "121100000540010"+cLin3+CHR(13) ) // codigo oPrn:Say(1, 1, "121100000420010"+cLin4+CHR(13) ) // descricao1 oPrn:Say(1, 1, "121100000310010"+cLin5+CHR(13) ) // descricao2 oPrn:Say(1, 1, "1"+cTipBar+"5201800020010"+cBar +CHR(13) ) // Código de Barras elseif contador=2 oPrn:Say(1, 1, "1X1100300780146L120018" ) // Negrito oPrn:Say(1, 1, "121100000810148"+cLin1+CHR(13) ) // nome da empresa oPrn:Say(1, 1, "141100000560146"+cLin2+CHR(13) ) // valor // oPrn:Say(1, 1, "121100000540146"+cLin3+CHR(13) ) // codigo oPrn:Say(1, 1, "121100000420146"+cLin4+CHR(13) ) // descricao1 oPrn:Say(1, 1, "121100000310146"+cLin5+CHR(13) ) // descricao2 oPrn:Say(1, 1, "1"+cTipBar+"5201800020146"+cBar +CHR(13) ) // Código de Barras elseif contador=3 oPrn:Say(1, 1, "1X1100300780282L120018" ) // Negrito oPrn:Say(1, 1, "121100000810284"+cLin1+CHR(13) ) // nome da empresa oPrn:Say(1, 1, "141100000560282"+cLin2+CHR(13) ) // valor // oPrn:Say(1, 1, "121100000540282"+cLin3+CHR(13) ) // codigo oPrn:Say(1, 1, "121100000420282"+cLin4+CHR(13) ) // descricao1 oPrn:Say(1, 1, "121100000310282"+cLin5+CHR(13) ) // descricao2 oPrn:Say(1, 1, "1"+cTipBar+"5201800020282"+cBar +CHR(13) ) // Código de Barras oPrn:Say(1, 1, "E"+CHR(13) ) // * ENCERRA a etiqueta contador = 0 endif ENDIF //Oscar Ribeiro Quote Link to comment Share on other sites More sharing options...
oliveiros Posted April 2, 2015 Author Report Share Posted April 2, 2015 Olá, Volto a este tópico só para informar que a dica funcionou perfeitamente. Obrigado! Junior Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.