Jump to content
Fivewin Brasil

Impressora não fiscal Bematech


oliveiros

Recommended Posts

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

Link to comment
Share on other sites

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


Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...