USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  impressora zebra 2488
vcr
MOGI DAS CRUZES
SP - BRASIL
Postada em 10/10/2005 15:31 hs            
Estou imprimindo etiquetas nessa impressora onde o numero do volume é um seguencial
 
Faço um For....Next e mando imprimir uma variavel que a cada next soma um
 
Ela só começa imprimir qdo acaba o Loop, o numero do volume não está dando o sequencia, este pega a primeira variavel e repete para todas as etqietas que mando imprimir
 
ALGUEM PODE ME AJUDAR ?
     
Alexandre C.G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 10/10/2005 15:44 hs            
poste o codigo ai
   
vcr
MOGI DAS CRUZES
SP - BRASIL
Postada em 10/10/2005 15:57 hs            
crlf = Chr(13) & Chr(10)
Print #1, crlf & "N"
Print #1, "q816" & crlf
Print #1, "S2" & crlf
Print #1, "D5" & crlf
Print #1, "ZT" & crlf
For i = 1 To cQtde
  Print #1, "A210,000,0,3,3,1,N," & Chr(34) & "PROT CAP" & Chr(34)
  Print #1, "A100,060,0,2,2,1,N," & Chr(34) & Text1(3) & Chr(34)
  Print #1, "A100,120,0,2,2,1,N," & Chr(34) & cCida & Chr(34)
  Print #1, "A600,120,0,2,2,1,N," & Chr(34) & cEsta & Chr(34)
  Print #1, "A100,180,0,3,3,1,N," & Chr(34) & "N.F.: " & Text1(0) & Chr(34)
  Print #1, "A100,240,0,2,2,1,N," & Chr(34) & "QTDE: " & cQtde & Chr(34)
  Print #1, "A100,300,0,3,3,1,N," & Chr(34) & "VOLUME: " & Format(cseque, "00000#") & Chr(34)
  Print #1, "P1"
  SequeTab!ProEti = Val(cseque + 1)
  SequeTab.Update
  cseque = cseque + 1
Next
Close #1
     
Gelson Porto
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 10/10/2005 16:13 hs            
crlf = Chr(13) & Chr(10)
Print #1, crlf & "N"
Print #1, "q816" & crlf
Print #1, "S2" & crlf
Print #1, "D5" & crlf
Print #1, "ZT" & crlf
For i = 1 To cQtde
  ***********
  cseque = cseque + 1
  ***************
  Print #1, "A210,000,0,3,3,1,N," & Chr(34) & "PROT CAP" & Chr(34)
  Print #1, "A100,060,0,2,2,1,N," & Chr(34) & Text1(3) & Chr(34)
  Print #1, "A100,120,0,2,2,1,N," & Chr(34) & cCida & Chr(34)
  Print #1, "A600,120,0,2,2,1,N," & Chr(34) & cEsta & Chr(34)
  Print #1, "A100,180,0,3,3,1,N," & Chr(34) & "N.F.: " & Text1(0) & Chr(34)
  Print #1, "A100,240,0,2,2,1,N," & Chr(34) & "QTDE: " & cQtde & Chr(34)
  Print #1, "A100,300,0,3,3,1,N," & Chr(34) & "VOLUME: " & Format(cseque, "00000#") & Chr(34)
  Print #1, "P1"
  SequeTab!ProEti = Val(cseque)
  SequeTab.Update
Next
Close #1
 
     
Roßerto
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 10/10/2005 23:35 hs            
tem um pequeno detalhe ae... o codigo está certo... o problema é que falta um detalhe...
 
 
crlf = Chr(13) & Chr(10)
For i = 1 To cQtde
  ***********
  cseque = cseque + 1
  ***************
  Print #1, crlf & "N"
  Print #1, "q816" & crlf
  Print #1, "S2" & crlf
  Print #1, "D5" & crlf
  Print #1, "ZT" & crlf
 
  Print #1, "A210,000,0,3,3,1,N," & Chr(34) & "PROT CAP" & Chr(34)
  Print #1, "A100,060,0,2,2,1,N," & Chr(34) & Text1(3) & Chr(34)
  Print #1, "A100,120,0,2,2,1,N," & Chr(34) & cCida & Chr(34)
  Print #1, "A600,120,0,2,2,1,N," & Chr(34) & cEsta & Chr(34)
  Print #1, "A100,180,0,3,3,1,N," & Chr(34) & "N.F.: " & Text1(0) & Chr(34)
  Print #1, "A100,240,0,2,2,1,N," & Chr(34) & "QTDE: " & cQtde & Chr(34)
  Print #1, "A100,300,0,3,3,1,N," & Chr(34) & "VOLUME: " & Format(cseque, "00000#") & Chr(34)
  Print #1, "P1"
  SequeTab!ProEti = Val(cseque)
  SequeTab.Update
Next
Close #1
tente assim...
 

Roberto
roberto@vbweb.com.br
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página