Perguntas ERRO TERMICA

Galera, boa tarde, estou com um probleminha, modifiquei fonte de etiquetas porém ele sempre imprime mais do que o usuário escolhe na opção, alguém poderia me dar um help ?


If nQtdEtiq == 1
nCol := 4
nCnt := 0

For i=1 To Len(aDados)
nCnt++

If nCnt == 1
MSCBBEGIN(1,6) // Inicializa a montagem da imagem para cada etiqueta (Qtd. cópias, velocidade 6 polegadas p/ segundo)
EndIf

// Imprime uma string (Pos X (COL) em Mm, Pos Y (LIN), String a ser impr, tipo de rotação, Tipo de Fonte, Tamanho

MSCBSAY(nCol,003,SubStr(aDados[i,2],1,31),"N","2","1,2") // Descrição
MSCBSAY(nCol,009,"Unid.Med.: "+aDados[i,3]+" - Alocacao: "+aDados[i,4],"N","2","1,1")
MSCBSAY(nCol,012,"Fabr.: "+aDados[i,6]+" - Cod.Fabr.: "+aDados[i,7],"N","2","1,1")
MSCBSAY(nCol,015,"Aplicacao.: "+aDados[i,8],"N","2","1,1")

// Imprime cod de barras (Pos X em Mm, Pos Y, String, (Tipo de rotação), Modelo de código de barras, Altura do código de Barras em Milímetros...
// ... Imprime dígito de verificação, Imprime a linha de código, Imprime a linha de código acima das barras, MSCBSAYBAR(nCol,016,aDados[i,5],"MB07","C",8.36,.F.,.T.,.F.,,2,1)
// MSCBSAYBAR(nCol,013,aDados[i,5],"N","MB07",8.36,.F.,.T.,.F.,,2,1)
MSCBSAYBAR(nCol,019,AllTrim(aDados[i,5]),"N","1",7,.T.,,,,1,1,,,,)


nCol += 50
If nCnt == 1
nCol := 4
// Finaliza a montagem da imagem que foi inicializada por um "MSCBBegin()"
MSCBEND()
nCnt := 0
EndIf

Next i

If nCnt == 1
MSCBEND()
EndIf

EndIf

If nQtdEtiq == 2

nCol := 4
nCnt := 0

For i=1 To Len(aDados)
nCnt++
If nCnt == 1
MSCBBEGIN(1,6) // Inicializa a montagem da imagem para cada etiqueta (Qtd. cópias, velocidade 6 polegadas p/ segundo)
EndIf
// Imprime uma string (Pos X em Mm, Pos Y, String a ser impr, tipo de rotação, Tipo de Fonte, Tamanho
MSCBSAY(nCol,003,SubStr(aDados[i,2],1,75),"N","2","1,2") // Descrição
MSCBSAY(nCol,008,"Unid.Med.: "+aDados[i,3]+" - Alocacao: "+aDados[i,4],"N","2","1,1")
MSCBSAY(nCol,011,"Fabr.: "+aDados[i,6]+" - Cod.Fabr.: "+aDados[i,7],"N","2","1,1")
MSCBSAY(nCol,014,"Aplicacao.: "+aDados[i,8])
// MSCBSAY(30,001,"CONTROLE DE PESAGEM" ,"N","1","1,2")
// MSCBSAY(nCol,008,"Unid.Med.: "+aDados[i,3],"N","2","1,2")
// MSCBSAY(nCol,012,"Armazem: "+aDados[i,4],"N","2","1,2")

// Imprime cod de barras (Pos X em Mm, Pos Y, String, (Tipo de rotação), Modelo de código de barras, Altura do código de Barras em Milímetros...
// ... Imprime dígito de verificação, Imprime a linha de código, Imprime a linha de código acima das barras,

//MSCBSAYBAR(nCol,009,aDados[i,5],"N","MB07",8.36,.F.,.T.,.F.,,2,1)

MSCBSAYBAR(nCol,018,AllTrim(aDados[i,5]),"N","1",7,.T.,,,,1,1,,,,)

nCol += 50
If nCnt == 1
nCol := 4
// Finaliza a montagem da imagem que foi inicializada por um "MSCBBegin()"
MSCBEND()
nCnt := 0
EndIf
Next i

If nCnt == 1 .Or. nCnt == 2
MSCBEND()
EndIf

EndIf

MSCBCLOSEPRINTER()

Return

Victor,

Acho que o erro está no seu FOR / Next , pois ele está fazendo de 1 até o ultimo elemento do Array Adados.

Dê uma verificada na sua lógica..

Boa sorte