[Resolvido]Criar Etiqueta de Expedição com Identificação de Volumes

Prezados colegas,

Sou novato em VBA e estou passando um perrengue para poder criar uma rotina que possa imprimir etiquetas de expedição com os volumes formatados da seguinte maneira: EX: 001/003, 002/003, 003/003

Preciso que a etiqueta possua dados da nota fiscal (Nro da NF, Nome do Destinatário, Endereço) e também a quantidade de volumes.

Exemplo:



A minha dificuldade é em fazer alimentar a tabela de etiquetas (tbEtiqueta) com os registros da tabela que contem os dados da nota fiscal (tabDadosNF) porém, o código deverá gravar repetidas vezes este registro de acordo com a quantidade de volumes que possui a nota fiscal.

Estou enviando em anexo um BD que mostra o que estou querendo fazer.

Alguém poderia me ajudar nisso?

Pesquisei bastante assunto relacionado a impressão, mas todos os exemplos que encontrei não se encaixam nesta situação.

Agradeço antecipadamente.

Boa Noite

Olá GCARVALHONET

segue um sistema meu que eu fiz para um cliente meu ele usa zebra

você deve criar uma pasta no c:\syscontrole e outra com nome c:\temp

da uma olhada se te ajuda eu gero uma etiqueta


cole aqui o arquivo txt que gera na pasta c:\temp

Boa Noite

segue o arquivo bat para imprimir direto na zebra

Olá @msilveir agradeço demais pela atenção ao meu problema, mas como eu disse sou muito novato ainda e não consegui associar os códigos do seu projeto ao que eu preciso.

Há mais de 15 anos não trabalho com VBA, e agora que peguei para criar um aplicativo para uso aqui na meu trabalho notei que estou demasiadamente leigo no assunto, e o que eu quero fazer é parte de uma tarefa muito importante pra mim.

Se conseguir um tempinho para dar mais uma analisada no meu banco de dados de exemplo talvez para você seja algo bem siimples de ser feito.

Lembrando que a minha impressão será direto de um relatório do Acess para uma impressora simples, que usa papel A4.

Novamente  agradeço pela atenção e tenha você e todos que estão lendo minha demanda um ótimo dia.

É extremamente simples, mas para o ajudar terá de inserir dados ficticios na tabela e criar você mesmo o template do report.
Quando estiver, anexe aqui o banco, este não tem nada de relevante para o ajudar.

Olá JPaulo,

Boa tarde!

Agradeço pela resposta e como solicitado estou enviando novamente o meu BD com alguns registros inclusos.

Agradeço antecipadamente e fico no aguardo de seu retorno.

Abraços!

Pelo que entendi, será isto ?

Sensacional JPaulo, ficou perfeito!

Era exatamente o exemplo de código que eu estava precisando.

Te agradeço demais pela ajuda, agora vou adaptar no meu arquivo para finalizar esse assunto.

Tenha um excelente dia!!

Uma melhorada ai, que não deixa duplicar em caso de existir.

Bom final de semana.

Pessoal,

Bom dia!

Eu utilizava até então o código abaixo quando meu banco de dados era local.
Acabei contratando um serviço da UOL Host, e meu banco subiu para a nuvem (MYSQL).

Agora o código abaixo não funciona mais pois as tabelas que estou usando no Access são agora vinculadas com o banco que esta hospedado no UOL.

Teriam como me ajudar a resolver este problema?

***********************************************************************
Private Sub cmd_Limpa_Etiqueta_Click()
Dim RS1 As DAO.Recordset

CurrentDb.Execute ("DELETE * FROM tbEtiqueta")
MsgBox "Registros excluídos com sucesso...", vbInformation, "Sucesso !!!"

End Sub