Impressora stripe s4m

[cristiane]

Bom dia a todos

Gostaria, por favor, de uma ajuda, tenho um sistema em clipper que fazia a impressao de etiquetas em uma impressora argox e utulizava os seguintes comandos:

FUNCTION ImpEtiq(zporta,; && porta de impressao

zdistlat,; && deslocamento lateral da etiq. para direita Ex: 0020 com 4 casa e caracter

ztemp,; && temperatura EX 10 caracter e com 2 casa

zproduto,; && descricao do produto

zean,; && codigo ean com 12 pos. sem o digito

zpeso,; && peso

zembala,; && data da embalagem em caract.

zvalid,; && data da valid em caract.

zquant ) && quant de etiq.

SET DEVICE TO PRINT

DO CASE

CASE zpoRta = '0'

SET PRINT TO LPT1

CASE zporta = '1'

SET PRINT TO COM1

CASE zporta = '2'

SET PRINT TO COM2

ENDCASE

wln = 0

@ wln++,00 SAY CHR(02) + 'O0220'

@ wln++,00 SAY CHR(02)+'M3000'

@ wln++,00 SAY CHR(02)+'f275'

@ wln++,00 SAY CHR(02)+'L'

@ wln++,00 SAY 'C' + zdistlat

@ wln++,00 SAY 'R0000'

@ wln++,00 SAY 'H' + ztemp

@ wln++,00 SAY 'D11'

@ wln++,00 SAY 'SE'

@ wln++,00 SAY 'PE'

@ wln++,00 SAY '191200300480000' + zproduto

@ wln++,00 SAY '1F3204000030000' + zean

@ wln++,00 SAY '191100300370107PESO LIQ.:' +ZPESO

@ wln++,00 SAY '191100300200107DATA FAB.:' + DTOC(zembala)

@ wln++,00 SAY 'Q' + PADL(ROUND(zquant,0),4,'0')

@ wln++,00 SAY 'E'

SET PRINT TO

SET DEVICE TO SCREEN

RETURN

Agora mudei para uma impressora stripe s4m e preciso dos comandos de impressao para substituir nessa funcao

Alguem poderia me ajudar?

Desde já agradeço

[cristiane]

Bom dia a todos

Gostaria, por favor, de uma ajuda, tenho um sistema em clipper que fazia a impressao de etiquetas em uma impressora argox e utulizava os seguintes comandos:

FUNCTION ImpEtiq(zporta,; && porta de impressao

zdistlat,; && deslocamento lateral da etiq. para direita Ex: 0020 com 4 casa e caracter

ztemp,; && temperatura EX 10 caracter e com 2 casa

zproduto,; && descricao do produto

zean,; && codigo ean com 12 pos. sem o digito

zpeso,; && peso

zembala,; && data da embalagem em caract.

zvalid,; && data da valid em caract.

zquant ) && quant de etiq.

SET DEVICE TO PRINT

DO CASE

CASE zpoRta = '0'

SET PRINT TO LPT1

CASE zporta = '1'

SET PRINT TO COM1

CASE zporta = '2'

SET PRINT TO COM2

ENDCASE

wln = 0

@ wln++,00 SAY CHR(02) + 'O0220'

@ wln++,00 SAY CHR(02)+'M3000'

@ wln++,00 SAY CHR(02)+'f275'

@ wln++,00 SAY CHR(02)+'L'

@ wln++,00 SAY 'C' + zdistlat

@ wln++,00 SAY 'R0000'

@ wln++,00 SAY 'H' + ztemp

@ wln++,00 SAY 'D11'

@ wln++,00 SAY 'SE'

@ wln++,00 SAY 'PE'

@ wln++,00 SAY '191200300480000' + zproduto

@ wln++,00 SAY '1F3204000030000' + zean

@ wln++,00 SAY '191100300370107PESO LIQ.:' +ZPESO

@ wln++,00 SAY '191100300200107DATA FAB.:' + DTOC(zembala)

@ wln++,00 SAY 'Q' + PADL(ROUND(zquant,0),4,'0')

@ wln++,00 SAY 'E'

SET PRINT TO

SET DEVICE TO SCREEN

RETURN

Agora mudei para uma impressora stripe s4m e preciso dos comandos de impressao para substituir nessa funcao

Alguem poderia me ajudar?

Desde já agradeço

[AnaCatacombs]

Minha cara.

Pelo que eu notei, essa impressora é uma ZEBRA.

Se eu não me engano, utiliza PPLZ, não PPLA como mostra o seu exemplo abaixo

Sugiro que você pegue o manual da impressora, e estude os comandos.. é complicado dizer como ficaria a string de PPLA para PPLZ. Quando no meu sistema, houve a necessidade dessas alterações, eu preferi criar outro modelo de etiqueta e utilizar melhor os recursos que PPLZ oferece.

Claro que é possível parametrizar o seu modelo de etiqueta de acordo com a impressora escolhida, mas imagino que vai dar mais trabalho ainda.

Eu devo ter alguns modelos em PPLZ, se precisar de algo, é só chamar.

[netsys]

Ola Cristiane e Ana

Passei pelo mesmo problema no começo do ano....

Realmente, o método de impressão é parecido, mas as

coordenadas mudam bastante. Uma sugestão é você utilizar

o próprio software que vem com a impressora, desenhar

sua etiqueta nele e depois imprimir em texto para

ver os comandos,,,

Vou ver se encontro minha rotina no escritório, ok?

Alberto Zamai

S.Paulo

[cristiane]

Obrigada Ana e Alberto Zamai

Se encontrar sua rotina e puder me ajudar eu te agradeço muito, é que vou ter que parametrizar de acordo a impressora mesmo uma é argox e a outra essa zebra s4m;

O manual da impressora esta todo em ingles e nao estou conseguindo achar os comandos correspondentes.

Obrigada!

[netsys]

Oi Cristiane

Encontrei!

Veja se ajuda: A rotina abaixo imprime a mesma etiqueta

de um produto (carne) com sua composição (gordura trans, colesterol, etc).

Os parâmetros passados são: Código do Produto, Data de Fabricação, Validade, Quantidade Etiquetas e Observações

O arquivo LS contém os valores que serão impressos.

Esta 1a. funciona na ARGOX:

*-------------------------------------------------

Function fImprArgox(cProd,dFabr,dVale,nQtde,cObse)

*-------------------------------------------------

Local nHand

Local cArqImp:="Argox.TXT"

Local cLote:=Subs(Dtoc(dFabr),7)+Subs(Dtoc(dFabr),4,2)

Ls->(DbSeek(cProd))

nHand:=fCreate(cArqImp)

fWrite(nHand,Chr(2)+"L"+Chr(13)+Chr(10))

fWrite(nHand,"D11"+Chr(13)+Chr(10))

fWrite(nHand,"311100001300420V.ENERGETICO"+Chr(13)+Chr(10))

fWrite(nHand,"311100001300365"+Alltrim(Ls->Valoren)+Chr(13)+Chr(10))

fWrite(nHand,"311100001300318"+Alltrim(Str(Ls->Valorpe,2))+"%"+Chr(13)+Chr(10))

fWrite(nHand,"311100001300300COLESTEROL"+Chr(13)+Chr(10))

fWrite(nHand,"311100001300245"+Alltrim(Ls->Coleste)+Chr(13)+Chr(10))

fWrite(nHand,"311100001300208"+Alltrim(Str(Ls->Colespe,2))+"%"+Chr(13)+Chr(10))

fWrite(nHand,"311100001380420CARBOIDRATOS"+Chr(13)+Chr(10))

fWrite(nHand,"311100001380345"+Alltrim(Ls->Carboid)+Chr(13)+Chr(10))

fWrite(nHand,"311100001380318"+Alltrim(Str(Ls->Carbope,2))+"%"+Chr(13)+Chr(10))

fWrite(nHand,"311100001380300FIBRAS"+Chr(13)+Chr(10))

fWrite(nHand,"311100001380245"+Alltrim(Ls->Fibrasa)+Chr(13)+Chr(10))

fWrite(nHand,"311100001380208"+Alltrim(Str(Ls->Fibrape,2))+"%"+Chr(13)+Chr(10))

fWrite(nHand,"311100001460420PROTEINAS"+Chr(13)+Chr(10))

fWrite(nHand,"311100001460345"+Alltrim(Ls->Protein)+Chr(13)+Chr(10))

fWrite(nHand,"311100001460318"+Alltrim(Str(Ls->Protepe,2))+"%"+Chr(13)+Chr(10))

fWrite(nHand,"311100001460300CALCIO"+Chr(13)+Chr(10))

fWrite(nHand,"311100001460245"+Alltrim(Ls->Calcios)+Chr(13)+Chr(10))

fWrite(nHand,"311100001460208"+Alltrim(Str(Ls->Calcipe,2))+"%"+Chr(13)+Chr(10))

fWrite(nHand,"311100001540420GORD.TOTAIS"+Chr(13)+Chr(10))

fWrite(nHand,"311100001540345"+Alltrim(Ls->Gortota)+Chr(13)+Chr(10))

fWrite(nHand,"311100001540318"+Alltrim(Str(Ls->Gortope,2))+"%"+Chr(13)+Chr(10))

fWrite(nHand,"311100001540300FERRO"+Chr(13)+Chr(10))

fWrite(nHand,"311100001540245"+Alltrim(Ls->Ferroso)+Chr(13)+Chr(10))

fWrite(nHand,"311100001540208"+Alltrim(Str(Ls->Ferrope,2))+"%"+Chr(13)+Chr(10))

fWrite(nHand,"311100001620420GORD.SATURAD"+Chr(13)+Chr(10))

fWrite(nHand,"311100001620345"+Alltrim(Ls->Gorsatu)+Chr(13)+Chr(10))

fWrite(nHand,"311100001620318"+Alltrim(Str(Ls->Gorsape,2))+"%"+Chr(13)+Chr(10))

fWrite(nHand,"311100001620300SODIO"+Chr(13)+Chr(10))

fWrite(nHand,"311100001620245"+Alltrim(Ls->Sodioso)+Chr(13)+Chr(10))

fWrite(nHand,"311100001620208"+Alltrim(Str(Ls->Sodiope,2))+"%"+Chr(13)+Chr(10))

fWrite(nHand,"311100001700420GORD.TRANS"+Chr(13)+Chr(10))

fWrite(nHand,"311100001700345"+Alltrim(Ls->Gortran)+Chr(13)+Chr(10))

fWrite(nHand,"311100001700318"+Alltrim(Str(Ls->Gortrap,2))+"%"+Chr(13)+Chr(10))

fWrite(nHand,"321100002200400"+Alltrim(Ls->Descri)+" - "+Alltrim(Ls->Fantas)+Chr(13)+Chr(10))

fWrite(nHand,"321100002500420"+Dtoc(dFabr)+" "+Dtoc(dVale)+" "+cLote+" 5 gramas M"+Chr(13)+Chr(10))

fWrite(nHand,"311100002500120"+Subs(cObse,1,20)+Chr(13)+Chr(10))

fWrite(nHand,"311100002580120"+Subs(cObse,21)+Chr(13)+Chr(10))

fWrite(nHand,"Q"+StrZero(nQtde,4)+Chr(13)+Chr(10)) //

fwrite(nHand,"E"+Chr(13)+Chr(10))

fClose(nHand)

Copy File(cArqImp) to Prn

Delete File(cArqImp)

Return Nil

// Já esta rotina faz a mesma etiqueta na Zebra S4M:

*-------------------------------------------------

Function fImprZebra(cProd,dFabr,dVale,nQtde,cObse)

*-------------------------------------------------

Local nHand

Local cArqImp:="Zebra.TXT"

Local cLote:=Subs(Dtoc(dFabr),7)+Subs(Dtoc(dFabr),4,2)

Ls->(DbSeek(cProd))

nHand:=fCreate(cArqImp)

fWrite(nHand,Chr(94)+"XA")

fWrite(nHand,Chr(94)+"FO311,001")

fWrite(nHand,Chr(94)+"FDV.ENERGETICO")

fWrite(nHand,Chr(94)+"FO311100001300365")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Valoren))

fWrite(nHand,Chr(94)+"FO311100001300318")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Valorpe,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001300300")

fWrite(nHand,Chr(94)+"FDCOLESTEROL")

fWrite(nHand,Chr(94)+"FO311100001300245")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Coleste))

fWrite(nHand,Chr(94)+"FO311100001300208")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Colespe,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001380420")

fWrite(nHand,Chr(94)+"FDCARBOIDRATOS")

fWrite(nHand,Chr(94)+"FO311100001380345")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Carboid))

fWrite(nHand,Chr(94)+"FO311100001380318")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Carbope,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001380300")

fWrite(nHand,Chr(94)+"FDFIBRAS")

fWrite(nHand,Chr(94)+"FO311100001380245")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Fibrape,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001460420")

fWrite(nHand,Chr(94)+"FDPROTEINAS")

fWrite(nHand,Chr(94)+"FO311100001460345")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Protein))

fWrite(nHand,Chr(94)+"FO311100001460318")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Protepe,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001460300")

fWrite(nHand,Chr(94)+"FDCALCIO")

fWrite(nHand,Chr(94)+"FO311100001460245")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Calcios))

fWrite(nHand,Chr(94)+"FO311100001460208")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Calcipe,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001540420")

fWrite(nHand,Chr(94)+"FDGORD.TOTAIS")

fWrite(nHand,Chr(94)+"FO311100001540345")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Gortota))

fWrite(nHand,Chr(94)+"FO311100001540318")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Gortope,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001540300")

fWrite(nHand,Chr(94)+"FDFERRO")

fWrite(nHand,Chr(94)+"FO311100001540245")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Ferroso))

fWrite(nHand,Chr(94)+"FO311100001540208")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Ferrope,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001620420")

fWrite(nHand,Chr(94)+"FDGORD.SATURAD")

fWrite(nHand,Chr(94)+"FO311100001620345")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Gorsatu))

fWrite(nHand,Chr(94)+"FO311100001620318")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Gorsape,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001620300")

fWrite(nHand,Chr(94)+"FDSODIO")

fWrite(nHand,Chr(94)+"FO311100001620245")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Sodioso))

fWrite(nHand,Chr(94)+"FO311100001620208")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Sodiope,2))+"%")

fWrite(nHand,Chr(94)+"FO311100001700420")

fWrite(nHand,Chr(94)+"FDGORD.TRANS")

fWrite(nHand,Chr(94)+"FO311100001700345")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Gortran))

fWrite(nHand,Chr(94)+"FO311100001700318")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Str(Ls->Gortrap,2))+"%")

fWrite(nHand,Chr(94)+"FO321100002200400")

fWrite(nHand,Chr(94)+"FD"+Alltrim(Ls->Descri)+" - "+Alltrim(Ls->Fantas))

fWrite(nHand,Chr(94)+"FO321100002500420")

fWrite(nHand,Chr(94)+"FD"+Dtoc(dFabr)+" "+Dtoc(dVale)+" "+cLote+" 5 gramas M")

fWrite(nHand,Chr(94)+"FO311100002500120")

fWrite(nHand,Chr(94)+"FD"+Subs(cObse,1,20))

fWrite(nHand,Chr(94)+"FO311100002580120")

fWrite(nHand,Chr(94)+"FD"+Subs(cObse,21))

fWrite(nHand,Chr(94)+"PQ"+StrZero(nQtde,4)) //

fwrite(nHand,Chr(94)+"XZ")

fClose(nHand)

Copy File(cArqImp) to Prn

Delete File(cArqImp)

Return Nil

Boa Sorte

Alberto Zamai - SP