[Resolvido]Quantia de Etiquetas

Ola Pessoal

tenho esse código para gerar etiquetas numa Zebra

Open "c:\Temp\etiqueta.txt" For Output As #1

Print #1, Me.txt1
Print #1, Me.txt2
Print #1, Me.txt3
Print #1, Me.txt4
Print #1, Me.txt41
Print #1, Me.txt5; Me.txtFilial; Me.txt6
Print #1, Me.txt7
Print #1, Me.txt8; Me.txtNumeroNota; Me.txt9
Print #1, Me.txt10; Me.txtRampa; Me.txt11
Print #1, Me.txt12
Print #1, Me.txt13
Print #1, Me.txt14
Print #1, Me.txt15
Print #1, Me.txt151
Print #1, Me.txt152; Me.txtVolumes; Me.txt153
Print #1, Me.txt154
Print #1, Me.txt16; Me.txtVolumes; Me.txt17

MsgBox "Arquivo Gerado com sucesso!", vbInformation, "Gerado com Sucesso"

Close #1

onde tem a ultima linha exemplo (Print #1, Me.txt16; Me.txtVolumes; Me.txt17)
no txtVolumes é onde eu coloco o numero de etiquetas que vai imprimir isso no formulario
segue o codigo gerado na zebra (^PQ 3 ,0,1,Y^XZ), onde tem o numero 3 e o txtvolumes blz

meu problema o pessoal esta errando a quantia de volumes exemplo era para ser 8 ele colocou 7 faltou um
quando ele consulta o pedido e corrige para 8 sai novamente todas as 8 etiquetas incluindo a que faltou

Uma solução simples, seria a criação de uma caixa de texto com a quantidade certa para a correção da quantidade de volumes e um botão de impressão mandando imprimir ( botão imprimir acerto ) apenas a última ou as linhas necessárias para a reimpressão da etiqueta.

Pois pelo que descreveu é rotineiro o erro dos operadores.

Ola Silvio


coloquei assim mas nao soma com o campo txtvolumes , gera a etiqueta mas nao soma

If IsNull(Me.txtCorrecao) Or Me.txtCorrecao = 0 Then

Me.txtVolumes.Value = Nz("[txtCorrecao]") + 1

End If

O txtCorrecao é uma caixa de texto nao acoplada onde coloco a correção

ola Pessoal

Devido ao problema de atenção por parte dos operadores ficou acertado ele corrigirem o valor no campo Volumes
e digitar no campo correção a quantidade que falta tirar de etiquetas

obrigado a todos