Imprimir página | Cerrar ventana

Generar pdf de informe de cada registro consulta

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85482
Fecha de impresión: 28/Marzo/2024 a las 09:49


Tema: Generar pdf de informe de cada registro consulta
Publicado por: rafam
Asunto: Generar pdf de informe de cada registro consulta
Fecha de publicación: 11/Septiembre/2020 a las 12:17
Hola, a ver si me podéis ayudar.

Tengo un formulario con una consulta por varios campos (periodo fechas, cliente,...) y los resultados los muestra en un subformulario. Me gustaría crear un botón que recorriera esa consulta y generara un pdf ,basado en una plantilla de informe que ya tengo, por cada registro de la consulta. 

Hasta ahora puedo generar un pdf individual de cada registro manualmente a través de una macro pero es muy lento ya que tengo que ir a cada registro, abrir informe y generar pdf.

Gracias por cualquier guía o sugerencia. 











Respuestas:
Publicado por: xavi
Fecha de publicación: 11/Septiembre/2020 a las 14:29
Hola rafam y bienvenido al foro,

Yo recorrería el RecordsetClone del subformulario y lanzaría el código para lanzar el PDF (no me queda claro si tienes un código o lo haces manualmente)

Un saludo


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: emiliove
Fecha de publicación: 11/Septiembre/2020 a las 16:30
Yo crearía un informe del origen de registro del subformulario y lo guardaría como pdf.

Solo por dar la conta a Xavi Smile
Saludos.


Publicado por: rokoko
Fecha de publicación: 11/Septiembre/2020 a las 17:25
Yo lo suelo hacer con un recordset basado en la misma consulta que el formulario y con un bucle te crearia tantos informes como registros tenga la consulta.

Al informe, tendrias que asignarle un recoedsource filtrando por el campo que tu quieras de ese cliente. El recordsource lo asignarias dentro del bucle y antes de crear el pdf.....


Publicado por: rafam
Fecha de publicación: 11/Septiembre/2020 a las 18:46
Gracias a todos por vuestras respuestas. Al final parece que he conseguido hacer lo que quería que era. Lo pongo para revisar y por si a alguien le sirve:

El escenario es que tengo un formulario con un subformulario al que hago consultas según fechas y otras campos. Mi idea es crear un botón que recorra los registros del subformulario y vaya generando un pdf basado en un informe, guardando en disco todos los pdf's. El código del botón:

On Error Resume Next
Dim stDocName As String
Dim rs As DAO.Recordset, subfrm As Form


Set subfrm = Form_SUBFORMULARIO_CONSULTA_FACTURAS.Form
Set rs = subfrm.RecordsetClone

With rs
.MoveFirst
While Not .EOF

'GENERA PDF CON INFORME FACTURAS Y LO GAURDA EN DISCO
stDocName = "FACTURAS"
DoCmd.OpenReport stDocName, acViewPreview, , "[ID_FACTURA]=" & rs!ID_FACTURA
DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, "C:\Users\rafa\Documents\facturas\" & rs!ID_FACTURA & ".pdf"
DoCmd.Close acReport, "FACTURAS"
DoEvents

.MoveNext





Imprimir página | Cerrar ventana