Perguntas CODIGO DE BARRAS NAO LE

Oi Pessoal, o Código de barras que estou imprimindo o coletor não identifica, a densidade da barrinha esta muito grossa, acho que por isso deve esta fora do padrão, onde posso configurar isso ja estive tentando usar todos os tipos de modelos de saída para barras.

Olha o meu caso:


// Tdigo de barras ("EAN13", "EAN8", "UPCA", "SUP5", "CODE128", "INT25", "MAT25", "IND25", "CODABAR", "CODE3_9", "EAN128")

While QRY->(!EOF())

oPrn:StartPage()

MSBAR3("EAN128", 3, 2, ALLTRIM(QRY->B1_CODBAR), oPrn, Nil, Nil, .T., 0.090, 1 , .T., "ARIAL", "E", .F., 0.5, 1,.F.)

oPrn:Say(250,52,"PRODUTO: " + ALLTRIM(QRY->B1_COD),oFont)
oPrn:Say(280,52,ALLTRIM(QRY->B1_DESC),oFont)

oPrn:Print()
oPrn:EndPage()
QRY->(DBSKIP())

END

Espero que alguém ja tenha visto isso e possa ajudar.

Obrigado



Kirk

Bom dia Kirk,

Aqui , na impressão do codigo de barras para OP, utilizamos assim:

cCode := (cAliasTop)->(C2_NUM+C2_ITEM+C2_SEQUEN+C2_ITEMGRD)
MSBAR3("CODE128",nlinha,8.0, Alltrim(cCode),oPr,.F.,Nil,.T.,Nil,1.0,.F.,Nil,Nil,.T.,Nil,Nil)

Dessa maneira o leitor entende sem problemas.

At

Eita Marcelo ainda não rolou, tentei vários tipos, para imprimir no A4 ele lê, mas quando vai para a impressora térmica saiu tudo grudada as barrinhas, assim o coletor não reconhece.
É possível que seja a configuração dessa impressora, mas ainda não achei o que seja.

Podem mandar mais sugestões.

Kirk

Para impressora térmica acho que vc deverá usar a função abaixo:

MSCBSAYBAR(23,22,SN1->(N1_CODBAR),"N","C",8.36,.F.,.T.,.F.,,2,1,.F.,.F.,"1",.T.)

Dá uma pesquisa aqui no fórum sobre impressão nas impressoras térmicas.

Verdade Marcelo, mas quando você tem uma ARGOX na mão, não funciona isso então tive que usar a TMSPrinter mesmo, algumas etiquetas estão lendo mas a do produto esta com esse problema talvez por que ela é menor fica mais difícil de interpretar a impressão.

Podem mandar mais sugestões estou provando tudo.


Kirk

Para concluir esse assunto e ajudar nas futuras consultas, consegui resolver esse problema usando uma outra classe de impressão: FWMSPrinter

FWMsPrinter(): New ( < cFilePrintert >, [ nDevice], [ lAdjustToLegacy], [ cPathInServer], [ lDisabeSetup ], [ lTReport], [ @oPrintSetup], [ cPrinter], [ lServer], [ lPDFAsPNG], [ lRaw], [ lViewPDF], [ nQtdCopy] ) --> oPrinter

tdn.totvs.com/display/public/mp/FWMsPrinter


Obrigado a todos

Boa sorte