[Resolvido]Imprimir várias vezes o mesmo registro!!

Boa Noite a todos, gostaria de saber como posso imprimir o mesmo registro quantas vezes forem necessárias, pois tenho q imprimir tipo etiquetas , para volumes de cada peça, exemplo tenho um peça com 4 volumes preciso q imprima 4 x a mesma etiqueta, seja multiplicando o resultado da consulta com sql, ou no próprio form.. tentei com o dmcmd.printout ,,,,(cópias) , inputbox, mas não consigo o resultado esperado.. espero q possão me ajudar, grato!!!

seja imprimir o mesmo registro n vezes , com base no valor de um campo, no caso (volumes)

Já tentou colocar um campo para inserir o número de páginas e colocar assim no código?

DoCmd.PrintOut , , , , Me.NomeCampo

tentei assim,

Private Sub Report_Activate()
DoCmd.PrintOut , , , , [Me.VolumeCliente]
Erro = Sistema não pode localizar o campo “!” referido em sua expressão

Private Sub Report_Open
Docmd.printout,,,,Me.VolumeCliente
Erro = A expressão que vc inseriu corresponde a um tipo de dados errado para um dos argumentos

Antes estou executando um OpenReport com critérios no Form , para chamar um único registro!!

Tente colocar no botão que você abre o formulário:

DoCmd.OpenReport...
DoCmd.PrintOut , , , , Me.txtCópias

no seu formulario no evento vba após abrir o relatorio


DoCmd.SelectObject acReport, "seuRelatorio", True
DoCmd.Printout ,,,,me.suaCaixaTextoQuantidadeCopias

No botão do form
DoCmd.OpenReport strNomeDoDoc, acNormal, , strCritérioDeVínculo
DoCmd.PrintOut , , , , Me.VolumeCliente

*Erro de compilação, método ou membro de dados não encontrado!!

Existe um strNomeDodoc declarado no código? Tente colocando o nome do relatório direto:

DoCmd.OpenReport NomeDoRelatório, acNormal, , strCritérioDeVínculo
DoCmd.PrintOut , , , , Me.VolumeCliente

strCritérioDeVínculo tem que existir tambem. Caso não exista, crie-o ou coloque o critério direto

Me.VolumeCliente tem que estar no formulário. E tem que ser o campo aonde você digita a quantidade de cópias.

Faça o que o amigo Ricardo lhe passou tambem, o Printout necessita do SelectObject.

DoCmd.OpenReport NomeDoRelatório, acNormal, , strCritérioDeVínculo
DoCmd.SelectObject acReport, "NomeDoRelatório", True
DoCmd.Printout ,,,,me.suaCaixaTextoQuantidadeCopias

Obrigado gnt ,, vou tentar aqui.. depois posto os resultados..

lembrando q quando chamo o registro para impressão, tipo chamo o campo 1,( o campo volume,q seria o numero de cópias seria o campo5 é já esta com o (valor)(, o critério está relacionado com o campo 1..)

Obrigado gnt consegui imprimir n cópias de um registro, porém tive de deixar acpreview.. no OpenReport , se não imprimia todos os registros n x, estava pulando o critério.

DoCmd.OpenReport NomeDoRelatório,(((( acPreview))), , strCritérioDeVínculo
DoCmd.SelectObject acReport, "NomeDoRelatório", True
DoCmd.Printout ,,,,me.suaCaixaTextoQuantidadeCopias

outra coisa que estva fazendo errado era de tentar puxar o valor da combo, agora transfiro o valor de volumes para cxtexto, com opção de se alterar, o que no meu caso está correto, pois nem sempre imprimimos tipo 100 etiquetas...

-

Só que o relatótio esta sendo impresso em um A4, com 3 etiquetas cada página, quando seleciono o valor ele me retorna 3 páginas,, queria que imprimisse os 3, ou mais registros repetidos na mesma folha, ??? com posso fazer isso, seria mais fácil tentar repetir o número de cópias numa consulta, retornando n registros é possivel??

Boa noite, Dante

Pode criar uma tabela auxiliar, a partir da tabela origem e criar tantos registos quantos queira. Depois, imprime a partir desta tabela auxiliar.
Cumprimentos,

Boa Noite, Alexandre..

Como seria feito isso, usando a tab auxiliar ???Obrigado

Bom dia,

Tem de utilizar DAO. Crie uma função, abra um recordset e percorra-o. Ao percorrê-lo, crie quantos registos na tabela auxiliar quantos indicarem no campo próprio.
Indique a(s) tabela(s) origem do relatório para o ajudar em concrecto.
Cumprimentos,