Impressao em Massa de Relatório

Pessoal


Estou com um problema que é o seguinte... Tenho um relatorio que puxa informações de um formulário para realizar a impressao de um "tipo" de um modelo. Porem agora, me chefe me solicitou que seja feita a impressao de vários "tipos" de um modelo. Eu consegui montar uma tabela com os relatorios que serao impressos, porem nao estou conseguindo fazer com que o sistema percorra pela tabela para ir imprimindo os relatorios.

se alguem puder me ajudar...desde ja agradeço

Obrigado

Ola Adriano;
Por exemplo uma tabela de nome tblRelatorios, com os campos ID=autonumeração e rptNome=texto

Public Function ImprimeTodosRelatorios()
'By JPaulo Maximo Access
Dim db As DAO.Database
Dim rst As DAO.Recordset
On Error Resume Next
Set rst = CurrentDb.OpenRecordset("Select * from tblRelatorios ORDER BY ID ASC")

Do While Not rst.EOF
DoCmd.SelectObject acReport, rst![rptNome], True
DoCmd.PrintOut acPrintAll
rst.MoveNext
Loop
rst.Close
MsgBox "Relatórios imprimidos com sucesso...", vbInformation
End Function

Para chamar a função num botão:

Private Sub SeuBotão_Click()
Call ImprimeTodosRelatorios
End Sub

E ae Adriano, funfou ?

Muito bom JPaulo...

Mas o que se refere ao RPTNOME?


outra coisa...testei aqui..porem nao saiu nada nao....nem mostra nada na tela...

Amigão, rptNome é o nome do campo que eu dei na tabela.

Nesse campo tem de ter os nomes de todos os seus relatórios, igualzinho sem diferenças algumas.

Na tela não ver nada mesmo.

teste ae e retorne

o problema é que quando coloco o nome do campo na linha:
DoCmd.SelectObject acReport, rst![rptNome], True (nome do campo é: SK Nº

parece que o sistema está procurando um relatorio com aquele nome, e quando eu coloco o nome do relatorio aparece a msg de "item nao encontrado nesta coleçao"...

Você não entendeu direito;

DoCmd.SelectObject acReport, rst![rptNome], True

Grifado a vermelho é nome do campo na tabela tblRelatorios

Nesse campo apenas você tem de digitar o nome do seu relatório ou relatórios.

Veja se o ajuda a clarear;

http://dl.dropbox.com/u/771097/ImprimeEmMassa.rar

JPaulo

eu consegui fazer o que voce me disse, porem o problema é que nao sao 3 tipos diferentes de relatorios...e sim informações diferentes para o mesmo relatorio..

coloquei o relatorio para pegar informações de uma tabela...gostaria que ele fosse passando de linha em linha e imprimindo um de cada vez...