eevaldo Posted August 9, 2011 Report Share Posted August 9, 2011 Ola pessoal, se alguem que imprime ZEBRA em impressora puder me auxliar agradeço, minha impressao atraves do codigo abaixo esta saindo correto apenas na primeira carreira de etiquetas depois começa desposicionar com espaços cada vez maior. O engraçado que este codigo estava funcionando na faze de testes, quando foi por em produção, comecou a dar erro. Será que existe alguma configuração na impressora que altera? segue o codigo abaixo: WHILE !EOF() for l = 1 to ETIQ->QTD nCol += 1 nTodas += 1 if nCol = 1 //alert("entro no col 1 ") @ nLin,00 SAY "Q600,016" OF oPrn nLin += 1 @ nLin,00 SAY "q400" OF oPrn nLin += 1 @ nLin,00 SAY "S2" OF oPrn nLin += 1 @ nLin,00 SAY "D7" OF oPrn nLin += 1 @ nLin,00 SAY "ZT" OF oPrn nLin += 1 @ nLin,00 SAY "JB" OF oPrn nLin += 1 @ nLin,00 SAY "OD" OF oPrn nLin += 1 @ nLin,00 SAY "R00,0" OF oPrn nLin += 1 @ nLin,00 SAY "N" OF oPrn nLin += 1 @ nLin,00 SAY "Q050,24" OF oPrn nLin += 1 @ nLin,00 SAY "A050,23,0,1,1,1,N," + OF oPrn nLin += 1 @ nLin,00 SAY "B050,45,0,2,2,7,60,B," + '"' + cBar+ '"' OF oPrn nLin += 1 @ nLin,00 SAY "A050,145,0,4,1,2,N," + '"' + "R$ " + nPrc + '"' OF oPrn nLin += 1 @ nLin,00 SAY "A050,145,0,1,1,2,N," + cFan OF oPrn nLin += 1 endif if nCol = 2 //alert("entro no col 2 ") @ nLin,00 SAY "A310,23,0,1,1,1,N," + OF oPrn nLin += 1 @ nLin,00 SAY "B310,45,0,2,2,7,60,B," + '"' + cBar + '"' OF oPrn nLin += 1 @ nLin,00 SAY "A050,145,0,4,1,2,N," + '"' + "R$ " + nPrc + '"' OF oPrn nLin += 1 @ nLin,00 SAY "A310,145,0,1,1,2,N," + cFan OF oPrn nLin += 1 endif if nCol = 3 //alert("entro no col 3 ") @ nLin,00 SAY "A580,23,0,1,1,1,N," + OF oPrn nLin += 1 @ nLin,00 SAY "B580,45,0,2,2,7,60,B," + '"' + cBar + '"' OF oPrn nLin += 1 @ nLin,00 SAY "A050,145,0,4,1,2,N," + '"' + "R$ " + nPrc + '"' OF oPrn nLin += 1 @ nLin,00 SAY "A580,145,0,1,1,2,N," + cFan OF oPrn nLin += 1 @ nLin,00 SAY "P1" OF oPrn nLin += 1 nCol:= 0 endif Next ETIQ->( DBSKIP(1) ) ENDDO Obrigado. Evaldo Wagner FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) evaldowl@hotmail.com Editado por - eevaldo on 09/08/2011 12:00:48 Quote Link to comment Share on other sites More sharing options...
eevaldo Posted August 9, 2011 Author Report Share Posted August 9, 2011 Ola pessoal, se alguem que imprime ZEBRA em impressora puder me auxliar agradeço, minha impressao atraves do codigo abaixo esta saindo correto apenas na primeira carreira de etiquetas depois começa desposicionar com espaços cada vez maior. O engraçado que este codigo estava funcionando na faze de testes, quando foi por em produção, comecou a dar erro. Será que existe alguma configuração na impressora que altera? segue o codigo abaixo: WHILE !EOF() for l = 1 to ETIQ->QTD nCol += 1 nTodas += 1 if nCol = 1 //alert("entro no col 1 ") @ nLin,00 SAY "Q600,016" OF oPrn nLin += 1 @ nLin,00 SAY "q400" OF oPrn nLin += 1 @ nLin,00 SAY "S2" OF oPrn nLin += 1 @ nLin,00 SAY "D7" OF oPrn nLin += 1 @ nLin,00 SAY "ZT" OF oPrn nLin += 1 @ nLin,00 SAY "JB" OF oPrn nLin += 1 @ nLin,00 SAY "OD" OF oPrn nLin += 1 @ nLin,00 SAY "R00,0" OF oPrn nLin += 1 @ nLin,00 SAY "N" OF oPrn nLin += 1 @ nLin,00 SAY "Q050,24" OF oPrn nLin += 1 @ nLin,00 SAY "A050,23,0,1,1,1,N," + OF oPrn nLin += 1 @ nLin,00 SAY "B050,45,0,2,2,7,60,B," + '"' + cBar+ '"' OF oPrn nLin += 1 @ nLin,00 SAY "A050,145,0,4,1,2,N," + '"' + "R$ " + nPrc + '"' OF oPrn nLin += 1 @ nLin,00 SAY "A050,145,0,1,1,2,N," + cFan OF oPrn nLin += 1 endif if nCol = 2 //alert("entro no col 2 ") @ nLin,00 SAY "A310,23,0,1,1,1,N," + OF oPrn nLin += 1 @ nLin,00 SAY "B310,45,0,2,2,7,60,B," + '"' + cBar + '"' OF oPrn nLin += 1 @ nLin,00 SAY "A050,145,0,4,1,2,N," + '"' + "R$ " + nPrc + '"' OF oPrn nLin += 1 @ nLin,00 SAY "A310,145,0,1,1,2,N," + cFan OF oPrn nLin += 1 endif if nCol = 3 //alert("entro no col 3 ") @ nLin,00 SAY "A580,23,0,1,1,1,N," + OF oPrn nLin += 1 @ nLin,00 SAY "B580,45,0,2,2,7,60,B," + '"' + cBar + '"' OF oPrn nLin += 1 @ nLin,00 SAY "A050,145,0,4,1,2,N," + '"' + "R$ " + nPrc + '"' OF oPrn nLin += 1 @ nLin,00 SAY "A580,145,0,1,1,2,N," + cFan OF oPrn nLin += 1 @ nLin,00 SAY "P1" OF oPrn nLin += 1 nCol:= 0 endif Next ETIQ->( DBSKIP(1) ) ENDDO Obrigado. Evaldo Wagner FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) evaldowl@hotmail.com Editado por - eevaldo on 09/08/2011 12:00:48 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 9, 2011 Report Share Posted August 9, 2011 http://www.fivewin.com.br/exibedicas.asp?id=885 http://www.fivewin.com.br/exibedicas.asp?id=849 http://www.fivewin.com.br/exibedicas.asp?id=724 João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe 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.