Início
![[Resolvido]Salvar Registros Individuais de um relatório. Empty](https://2img.net/i/empty.gif)
RafaelMendes 2/9/2012, 15:48Caros, esta é minha primeira vez aqui como membro. Espero que alguém possa me ajudar. Vou tentar descrever meu problema.
Tenho um relatório criado com base em uma consulta pronta. O que preciso é salvar cada registro em um ".pdf" diferente. Por exemplo, passei os parâmetros e gerei um relatório com 22 páginas. A partir daí preciso salvar cada página em um arquivo diferente. Já tentei de tudo e procurei nos 4 cantos da internet. Alguma luz?
Observações:
Minha primeira idéia foi criar um Recordset com esta consulta e gerar os relatórios um a um, assim:
Dim bd As DAO.Database
Set bd = CurrentDb
Dim rst As DAO.Recordset
Dim query As DAO.QueryDef
Set query = bd.QueryDefs("NOMEDACONSULTA")
Set rst = bd.OpenRecordset(query.SQL)
...
Mas na última linha dá o erro "Parâmetros Insuficientes". Estou apanhando pra resolvê-lo pois são 5 parâmetros do form e a consulta é enorme com e com outras consultas misturadas.
Daí tentei incorporar o Recordset do relatório ao meu Recordset, assim:
Set rst = ObjetoRelatorio.Recordset
Mas parece que não é mais possível em versões recentes do access.
O pior é que preciso entregar isto amanhã de manhã. Se alguém puder me dar uma dica ficarei muito agradecido.
PS: Desculpe pelas maiúsculas. Não vai se repetir.
Tenho um relatório criado com base em uma consulta pronta. O que preciso é salvar cada registro em um ".pdf" diferente. Por exemplo, passei os parâmetros e gerei um relatório com 22 páginas. A partir daí preciso salvar cada página em um arquivo diferente. Já tentei de tudo e procurei nos 4 cantos da internet. Alguma luz?
Observações:
Minha primeira idéia foi criar um Recordset com esta consulta e gerar os relatórios um a um, assim:
Dim bd As DAO.Database
Set bd = CurrentDb
Dim rst As DAO.Recordset
Dim query As DAO.QueryDef
Set query = bd.QueryDefs("NOMEDACONSULTA")
Set rst = bd.OpenRecordset(query.SQL)
...
Mas na última linha dá o erro "Parâmetros Insuficientes". Estou apanhando pra resolvê-lo pois são 5 parâmetros do form e a consulta é enorme com e com outras consultas misturadas.
Daí tentei incorporar o Recordset do relatório ao meu Recordset, assim:
Set rst = ObjetoRelatorio.Recordset
Mas parece que não é mais possível em versões recentes do access.
O pior é que preciso entregar isto amanhã de manhã. Se alguém puder me dar uma dica ficarei muito agradecido.
PS: Desculpe pelas maiúsculas. Não vai se repetir.
Última edição por RafaelMendes em 2/9/2012, 18:02, editado 1 vez(es)