[Resolvido]Repetir Linhas da Tabela no Relatório

Boa tarde a todos! Tenho um BD que faz a impressão de etiquetas da loja. Isso é feito através de uma única tabela, que é alimentada quando as mercadorias chegam. Nela, consta o código, o preço de compra, de venda e a qtd. Aí que está o problema. Quando faço a impressão das etiquetas, ela precisaria imprimir aquele mesmo item (linha) a quantidade de vezes indicada no campo "QTD".  E não achei maneira de resolver isso.

Amigo, Existem alguns exemplos sobre sua duvida aqui no Fórum!

Realize uma Pesquisa aqui no Fórum ( Como Pesquisar )
ou Pesquise direto no Google: ( google.com.br/?#q=Etiqueta;Maximoaccess.com )

Ja pesquisei inumeros exemplos, mas nenhum que atenda do jeito que eu pedi. O mais próximo que encontrei foi esse que vou colocar link abaixo, mas não se trata do mesmo problema, consequentemente a solução nao é a mesma...

https://www.maximoaccess.com/t2011-resolvidoimprimir-varias-vezes-o-mesmo-registro

Amigo, você deu uma olhada nos exemplos que temos?
Pois lembro bem de um que imprimir X vezes a etiqueta do produto y...

Acredito esta na sala de repositórios. Basta ajustar a sua necessidade!

Amigo, baixei mais de 10 exemplos e não consegui adaptar nenhum...
Alguma ajuda?

Pois veja, 10min de pesquisa no link sugerido!

Alterei para imprimir de acordo com o Estoque do produto!
dropbox.com/s/st3itiv1lc7k50z/Etiquetas%20com%203Of9.rar

Abra o Formulário, e clique na Impressora!


Observe que:

A Função esta no VB do próprio Relatório;
Veja que a função é chamada no evento ao Abrir do Relatório, e la eu informo onde está a quantidade a ser impressa, que nesse exemplo é no campo estoque do Formulário.

Agradeço a ajuda mas não era esse meu problema. Conforme eu já havia dito anteriormente, os exemplos do repositório abordavam sempre através de formulário. Precisava de algo mais dinâmico e rápido. Consegui resolver de outra forma, baseando o report da etiqueta numa tabela temporária, criada por uma função.
Resolvido!

Dim Conta As Integer
DoCmd.SetWarnings False

Dim Data_Print As Date
Data_Print = InputBox("Qual Data de Compra deseja imprimir?", "Loja Calla")

Sql_Limpa_Tbl = ""
Sql_Limpa_Tbl = Sql_Limpa_Tbl & "DELETE Tbl_Etiquetas.* "
Sql_Limpa_Tbl = Sql_Limpa_Tbl & "FROM Tbl_Etiquetas"
DoCmd.RunSQL (Sql_Limpa_Tbl)

Sql_Agrupa_Qtd = ""
Sql_Agrupa_Qtd = Sql_Agrupa_Qtd & "SELECT Tbl_Master.Qtd "
Sql_Agrupa_Qtd = Sql_Agrupa_Qtd & "FROM Tbl_Master "
Sql_Agrupa_Qtd = Sql_Agrupa_Qtd & "WHERE (((Tbl_Master.Data_Compra) = #" & Format(Data_Print, "mm/dd/yy") & "#)) "
Sql_Agrupa_Qtd = Sql_Agrupa_Qtd & "GROUP BY Tbl_Master.Qtd"

Set Rs_Agrupa_Qtd = CurrentDb.OpenRecordset(Sql_Agrupa_Qtd)

Conta = 1
While Rs_Agrupa_Qtd.EOF = False

   While Conta <= Rs_Agrupa_Qtd!Qtd
       Sql_Insert = ""
       Sql_Insert = Sql_Insert & "INSERT INTO Tbl_Etiquetas ( Código, Descrição, Tamanho, Qtd, Valor_Venda, Data_Compra, Loja ) "
       Sql_Insert = Sql_Insert & "SELECT Tbl_Master.Código, Tbl_Master.Descrição, Tbl_Master.Tamanho, Tbl_Master.Qtd, Tbl_Master.Valor_Venda, Tbl_Master.Data_Compra, Tbl_Master.Loja "
       Sql_Insert = Sql_Insert & "FROM Tbl_Master "
       Sql_Insert = Sql_Insert & "WHERE (((Tbl_Master.Qtd)=" & Rs_Agrupa_Qtd!Qtd & ") AND ((Tbl_Master.Data_Compra)=#" & Format(Data_Print, "mm/dd/yy") & "#))"
       DoCmd.RunSQL (Sql_Insert)
       
       Conta = Conta + 1

   Wend

Rs_Agrupa_Qtd.MoveNext
Conta = 1
Wend

DoCmd.SetWarnings True
DoCmd.OpenReport "Rpt_Etiquetas", acViewPreview

Se a duvida foi solucionada, por favor marque o tópico como resolvido:

Veja como Fazer

Olá pessoal, por favor me ajudem, segui a demonstração passo a passo porem o meu não vai, não sei oque está acontecendo que não imprime mais de 1 via de acordo com estoque, será que alguém pode me auxiliar e descobrir onde estou errando!