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 ?

poste o codigo ai

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

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

 

tem um pequeno detalhe ae... o codigo está certo... o problema é que falta um detalhe...