PC Toledo

ola amigos estou utilizando o fonte a baixo a impressao sai mas a impressora nao para de soltar etiquetas
e gostaria de saber como entender o controle de linhas e colunas para esta impressora argox 214plus instalada com ppla

Function Main()

cProduto := "NESCAU 2.0 LATA 400 G"
cUnitario := "UN" // UN, KG, LT, FD, CX, etc...
nPreco := 4.80
cCodigo := "7891000053508" // GTIN valido ou nao sera impresso

EtqGondola( cProduto, cUnitario, nPreco, cCodigo )

Return Nil

Function EtqGondola( cProduto, cUnitario, nPreco, cCodigo )
Local cCtr := chr(2), cEol := Hb_Eol(), cDescProd
Local cPrinter, cFileImp:="Gondola.Txt"

SET DEVI TO PRIN
SET PRIN TO ( cFileImp )

@ Prow()+0, PCol() Say cCtr + "e" + cEol // habilita o sensor gap
@ Prow()+0, PCol() Say cCtr + "m" + cEol // unidade em milimitro
@ Prow()+0, PCol() Say cCtr + "M0300" + cEol // fixa o comprimento em 30mm
@ Prow()+0, PCol() Say cCtr + "L" + cEol // entra em modo formato etiqueta
@ Prow()+0, PCol() Say "H20" + cEol // fixa temperatura vai de: H10 a H20 recomendavel H16
@ Prow()+0, PCol() Say "D11" + cEol // Padrao para pixels

cDescProd:=AllTrim( cProduto )

If Len( cDescProd ) > 23
@ Prow()+0, PCol() Say "190000401900010" + cDescProd + cEol // titulo em fonte pequena
Else
@ Prow()+0, PCol() Say "190000601800050" + cDescProd + cEol // titulo em fonte grande
EndIf

@ Prow()+0, PCol() Say "190000500500900" + cUnitario + cEol // UN ou KG
@ Prow()+0, PCol() Say "160000700500500" + Tran( nPreco, "@E 9,999.99" ) + cEol // preço de venda
@ Prow()+0, PCol() Say "1F0008000300050" + Left( cCodigo,12) + cEol // codigo de barras (sem digito verificador)

@ Prow()+0, PCol() Say "E" + cEol // envia para a impressora
@ Prow()+0, PCol() Say "Q" + cEol // esvazia a memória da impressora

SET PRIN TO
SET DEVI TO SCREEN

cPrinter := GetDefaultPrinter() // pega impressora padrao
PrintFileRaw( cPrinter, cFileImp, "Etiqueta de Gondola" )

Return

:-O
JC, acredito que esteja faltando o comando com a quantidade de etiquetas, não encontrei onde você está carregando a quantidade de etiquetas, coloque "Q001" Ex:
:)Pos
HASA

Olá Pessoal,

HASA, quando não é informado a quantidade de etiqueta é assumida 1.

jcsprog, implemente para efeito de testes a sugestão do Hasa, mas penso que o que está ocorrendo é problema no sensor gap (lacuna). Se ele estiver sujo ou obstruído, ou ainda se o rolo de etiquetas não estiver posicionado corretamente, ou os gaps forem imperceptíveis ao sensor isso também pode ocorrer.

Para testes, limpe o sensor conforme especificado na página 60 do manual do usuário:

Sensor de Mídia
Resíduos ou sujeira no sensor de papel podem causar uma leitura incorreta ou uma detecção irregular do intervalo da
etiqueta. Limpe com um chumaço de algodão umedecido com álcool.

Controle de eixo Y e X solucionado agradeco

JC

Não entendi bem o que você disse poderia postar a solução pode ser útil no futuro, ok.

:)Pos
HASA

Olá HASA,

Dê uma olhada nesse tópico: https://pctoledo.org/forum/viewto ... 08#p100508

Nele tem inclusive os manuais em PPLA. Veja se ajuda.

)
Jairo, obrigado.
:-Y
HASA