Paulo1361303230 Posted October 24, 2011 Report Share Posted October 24, 2011 Prezados colegas! Conseguà desenvolver a função para emissão de etiquetas especÃficas para bijouterias, cujas dimensões é de 23x11mm para cada coluna da etiqueta. Sendo que na coluna da esquerda vai a descrição do produto e o código de barras correspondente e na coluna da direita vai o preço de venda do produto destacado. O único inconveniente, é que a descrição do produto está precisando de um melhor realce pois algumas letras ficam semi-apagadas. Alguem poderia informar qual seria o procedimento para um melhor realce? Onde será que errei? O que poderá estar faltando? Segue o fonte; ****************************************** function bij23x(oLbx) ****************************************** Local oDlg if MsgNoYes("Iniciar a emissão das etiquetas?","Produtos") oPrn := TdosPrn():New("LPT1") do while .not. eof() oPrn:SetCoors(00,00) oPrn:Say(oPrn:nRow+01, 01, chr(2)+'L') oPrn:Say(oPrn:nRow+01, 01, 'H12'+chr(13)) oPrn:Say(oPrn:nRow+01, 01, 'D11'+chr(13)) // tamanho do pixel Vcodi:= str(codprod,7) wde1 :=len(alltrim(descric)) wdesc:=subs(descric,1,21)+repli('>',21-wde1) Vdesc:=wdesc Vvalo:='R$ '+alltrim(str(valvend,12,2)) oPrn:Say(oPrn:nRow+01, 01, 'H12111100700320030'+alltrim(Vdesc)) (Preciso de um melhor destaque) oPrn:Say(oPrn:nRow , 01, 'H12121100200220150'+alltrim(Vvalo)) oPrn:Say(oPrn:nRow+01, 01, '1A3202000010027'+Vcodi) oPrn:Say(oPrn:nRow+01, 01, 'Q0001') oPrn:Say(oPrn:nRow+01, 01, 'Q') oPrn:Say(oPrn:nRow+01, 01, 'E') skip enddo oPrn:End(.F., .F.) go top endif Return NIL Por hora obrigado! Editado por - Paulo on 28/10/2011 18:43:36 Quote Link to comment Share on other sites More sharing options...
Paulo1361303230 Posted October 24, 2011 Author Report Share Posted October 24, 2011 Prezados colegas! Conseguà desenvolver a função para emissão de etiquetas especÃficas para bijouterias, cujas dimensões é de 23x11mm para cada coluna da etiqueta. Sendo que na coluna da esquerda vai a descrição do produto e o código de barras correspondente e na coluna da direita vai o preço de venda do produto destacado. O único inconveniente, é que a descrição do produto está precisando de um melhor realce pois algumas letras ficam semi-apagadas. Alguem poderia informar qual seria o procedimento para um melhor realce? Onde será que errei? O que poderá estar faltando? Segue o fonte; ****************************************** function bij23x(oLbx) ****************************************** Local oDlg if MsgNoYes("Iniciar a emissão das etiquetas?","Produtos") oPrn := TdosPrn():New("LPT1") do while .not. eof() oPrn:SetCoors(00,00) oPrn:Say(oPrn:nRow+01, 01, chr(2)+'L') oPrn:Say(oPrn:nRow+01, 01, 'H12'+chr(13)) oPrn:Say(oPrn:nRow+01, 01, 'D11'+chr(13)) // tamanho do pixel Vcodi:= str(codprod,7) wde1 :=len(alltrim(descric)) wdesc:=subs(descric,1,21)+repli('>',21-wde1) Vdesc:=wdesc Vvalo:='R$ '+alltrim(str(valvend,12,2)) oPrn:Say(oPrn:nRow+01, 01, 'H12111100700320030'+alltrim(Vdesc)) (Preciso de um melhor destaque) oPrn:Say(oPrn:nRow , 01, 'H12121100200220150'+alltrim(Vvalo)) oPrn:Say(oPrn:nRow+01, 01, '1A3202000010027'+Vcodi) oPrn:Say(oPrn:nRow+01, 01, 'Q0001') oPrn:Say(oPrn:nRow+01, 01, 'Q') oPrn:Say(oPrn:nRow+01, 01, 'E') skip enddo oPrn:End(.F., .F.) go top endif Return NIL Por hora obrigado! Editado por - Paulo on 28/10/2011 18:43:36 Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted October 24, 2011 Report Share Posted October 24, 2011 Paulo, acho q essa rotiina fui eu quem fez, veja q nessa linha oLabel:Margin( 13, RPT_TOP, RPT_MMETERS ) // 11 tente diminuir pois é a margem superior onde pode estar dando espaço para uma folha.. att.. Geovanni Holior Analista de Sistema Clip53 * FHW 9.1/../9.5 MySql skype:geovanni.holior " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
Paulo1361303230 Posted October 26, 2011 Author Report Share Posted October 26, 2011 Olá Geovane, bom dia! Essa parte de pular as etiquetas iniciais conseguà resolver, o problema maior é que de uma etiqueta para outra, ocorrem diferenças de décimos de mm, ou seja, as etiquetas não ficam uniformes. Consultando o Gilmer, ele disse-me que devo desenvolver na própria linguagem da impressora que seria PPLA. Por hora obrigado! José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com Quote Link to comment Share on other sites More sharing options...
Paulo1361303230 Posted October 28, 2011 Author Report Share Posted October 28, 2011 As duas últimas postagens, correspondem à dúvidas anteriores que já foram esclarecidas mediante ajustes para PPLA, agora prevalecendo a dúvida inicial deste tópico. José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com Quote Link to comment Share on other sites More sharing options...
atnsoft Posted October 28, 2011 Report Share Posted October 28, 2011 Prn:Say(oPrn:nRow+01, 01, 'H12111100700320030'+alltrim(Vdesc)) (Preciso de um melhor destaque) id=code>id=code>experimente trocar para isso: Prn:Say(oPrn:nRow+01, 01, 'H13id=red>111100700320030'+alltrim(Vdesc)) (Preciso de um melhor destaque) id=code>id=code>PS: o H aà nao é somente usado para a densidade (Aquecimento) ? Eu uso em algumas aqui (Cash way) o H7 e outras H9 mas nunca precisou aumentar mais que isso e uso direto assim: if Len(Wind) > 0 for Conta := 1 to Len(Wind) oPrn:Say(oPrn:nRow+01,01,Chr(2)+"L") oPrn:Say(oPrn:nRow+01,01,"D11") oPrn:Say(oPrn:nRow+01,01,"H"+StrZero(lDens,2,0)) if (LporLan = "1") oPrn:Say(oPrn:nRow+01,01,"131000000960008"+LletiL+Wcodigo) oPrn:Say(oPrn:nRow+01,01,"121000001000085"+" - "+Wnome) oPrn:Say(oPrn:nRow+01,01,"121000000840008"+WnomeN) oPrn:Say(oPrn:nRow+01,01,"121000000760008") oPrn:Say(oPrn:nRow+01,01,"121000000720008"+Wind[Conta]) oPrn:Say(oPrn:nRow+01,01,"121000000600008") oPrn:Say(oPrn:nRow+01,01,"121000000480008"+Aveco[Conta]) oPrn:Say(oPrn:nRow+01,01,"1A0002000010027"+LletiL+Ltrim(Str(Val(Wcodigo),8,0))) else oPrn:Say(oPrn:nRow+01,01,"431000000090030"+LletiL+Wcodigo) oPrn:Say(oPrn:nRow+01,01,"421000000800028"+" - "+Wnome) oPrn:Say(oPrn:nRow+01,01,"421000000090043"+WnomeN) oPrn:Say(oPrn:nRow+01,01,"421000000090050") oPrn:Say(oPrn:nRow+01,01,"421000000090060"+Wind[Conta]) oPrn:Say(oPrn:nRow+01,01,"421000000090070") oPrn:Say(oPrn:nRow+01,01,"421000000090095"+Aveco[Conta]) oPrn:Say(oPrn:nRow+01,01,"4A0002000190128"+LletiL+Ltrim(Str(Val(Wcodigo),8,0))) endif oPrn:Say(oPrn:nRow+01,01,"Q0001") oPrn:Say(oPrn:nRow+01,01,"E") Next endif else //Zebra For Conta := 1 to Ttam if ! empty(Vqual[conta]) oPrn:Say(oPrn:nRow+01,00,"I8,A,001"+lEnter) oPrn:Say(oPrn:nRow+01,00,"Q240,019"+lEnter) oPrn:Say(oPrn:nRow+01,00,"q448"+lEnter) oPrn:Say(oPrn:nRow+01,00,"rN"+lEnter) oPrn:Say(oPrn:nRow+01,00,"S4"+lEnter) oPrn:Say(oPrn:nRow+01,00,"D"+StrZero(lDens,2,0)+lEnter) oPrn:Say(oPrn:nRow+01,00,"ZT"+lEnter) oPrn:Say(oPrn:nRow+01,00,"JF"+lEnter) oPrn:Say(oPrn:nRow+01,00,"O"+lEnter) oPrn:Say(oPrn:nRow+01,00,"R111,0"+lEnter) oPrn:Say(oPrn:nRow+01,00,"f100"+lEnter) oPrn:Say(oPrn:nRow+01,00,"N"+lEnter) if (LporLan = "1") oPrn:Say(oPrn:nRow+01,00,'A486,200,2,1,2,3,N,"'+LletiL+Wcodigo+'"'+lEnter) oPrn:Say(oPrn:nRow+01,00,'A234,195,2,1,1,2,N,"'+Wnome+'"'+lEnter) oPrn:Say(oPrn:nRow+01,00,'A482,154,2,1,1,2,N,"'+Capitular(WnomeN)+'"'+lEnter) oPrn:Say(oPrn:nRow+01,00,'A484,125,2,1,1,2,N,"'+Lower(Vqual[Conta])+'"'+lEnter) etc....... id=code>id=code>AtnSoft(Antenor Rabello) - xHarbour 0.99.71 / FwH 7.05 / Verce C. Procópio - PR Quote Link to comment Share on other sites More sharing options...
Paulo1361303230 Posted October 29, 2011 Author Report Share Posted October 29, 2011 Olá Antenor, bom dia ou (boa tarde, boa noite conforme o caso rsrsrsr) Agradeço-lhe pela atenção, realizei a modificação como voce sugeriu, porem ficou na mesma. Talvez eu esteja é querendo demais, pois a impressão está legÃvel e visÃvel e conforme a fonte que escolhà (1) talvez ela tenha os seus limites máximos. Obrigado! José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com Quote Link to comment Share on other sites More sharing options...
miragerr Posted October 30, 2011 Report Share Posted October 30, 2011 Ola amigos Paulo se vc usar a FASTREPORT com o DRIVER da ARGOX vc pode fazer do jeito que vc quiser... faco aki e fica uma maravilha. Jackson Douglas Boa Vista FWH 11.05 Lamborguini ( isso voa gente ) PellesC+xH 1.2.1 + FAST REPORT + DBFCDX + SQL 100% email : miragerr@osite.com.br MSN : jackson_rl@hotmail.com SKYPE : jackson_rr Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted October 30, 2011 Report Share Posted October 30, 2011 Caro Jackson, para pequenos volumes de impressão perfeito, mas se precisar de volume e agilidade, esqueçã, lento demais. "Me interessa o futuro porque é o lugar onde vou passar o resto da minha vida." Quote Link to comment Share on other sites More sharing options...
sambomb Posted October 31, 2011 Report Share Posted October 31, 2011 Eu utilizo a linguagem da impressora para fazer as impressões, assim eu utilizo o sensor dela para fazer a separação entre uma etiqueta e outra. Quanto a dúvida do tópico, é possÃvel aumentar a fonte da descrição e pela questão do realce isso deve ser a configuração do "calor"(heat) da impressora, quanto maior mais firme ficam as impressões mas pode chegar ao ponto de borrar ou danificar o ribbon. RCA Sistemas - Itaocara - RJ 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.