Preciso escrever o VBA para que a num relatório uma etiqueta seja impressa tantas vezes como ela esta encomendada.

Tenho uma base de dados MSAccess em princípio um ERP. Registo encomendas dos clientes através dum formulário com a informação dos produtos em encomenda sendo registado numa tabela que se chama “ProdutosEmEncomendaT” Visto que tenho que fazer cálculos para x vezes preço y etc. fiz estes cálculos em uma consulta chamada ““ProdutosEmEncomendaQ”. Ora, o formulário está vinculado par a consulta mencionada para mostrar o cálculo.
Deste formulário imprimo as confirmações das encomendas para os clientes com um relatório chamado “EncomendaR” Até aqui tudo bem.
Agora preciso para cada producto encomendada tantas etiquetas quantas vezes o producto for encomendado, pois se um cliente quer 5 vezes o produto “A” a etiqueta de “A” tem de sair 5 vezes para que eu tenho a etiqueta para as 5 embalagens.
A informação da quantidade está no formulário, na Tabela e na Consulta. O relatório (a impressão é através de folhas A4 com 28 etiquetas cada) é configurado e funcionaria.
Não consigo escrever o VBA para que a impressão de relatório seria feita com a repetição necessária.
Uso o Access365 em Windows11.
Obrigado pela ajuda e pela pasciencia

Para imprimir as etiquetas com base na quantidade de produtos de cada pedido, você pode criar um relatório com sub-relatórios. Um sub-relatório será responsável por imprimir uma etiqueta para cada produto do pedido.

Para isso, você deve vincular o sub-relatório à consulta "ProdutosEmEncomendaQ" e definindo o grupo pelo número do pedido. Depois, você adiciona um controle de sub-relatório no relatório principal e define a fonte de registro para a tabela "ProdutosEmEncomendaT". Isso garantirá que o sub-relatório imprima as etiquetas para cada produto no pedido.

Após, adicione um controle de caixa de texto no sub-relatório mostrando a quantidade de etiquetas necessárias por produto. Use a expressão "=[Quantidade]" para obter a quantidade de cada produto no pedido.

Finalizando, configure o relatório mestre para imprimir diversas cópias de cada etiqueta, com base na quantidade de produtos por pedido. Use a propriedade "Copiar" do controle de rótulo no sub-relatório para isso. Defina a propriedade "Cópias" para a expressão "=[Quantidade]" para imprimir divesras cópias de cada etiqueta.

Segue VBA:

Código:


Private Sub btnImprimir_Click()

    Dim Filtro As String
    Dim NomeEtiqueta As String
   
    Filtro = "NumEncomenda = " & Me.NumEncomenda
    NomeEtiqueta = "EncomendaR"
   
    ' Define o número de cópias da etiquetaa com base na quantidade de cada produto em uma encomenda
    Me!subRelatorioEtiquetas.Report.LabelEtiqueta.Copies = Me.Quantidade
   
    ' Abre o relatório com os sub-relatórios vinculados à consulta
    DoCmd.OpenReport NomeEtiqueta, acViewPreview, , Filtro
   
End Sub



Verifique os nomes dos controles.