Impresión de informes

Dudas sobre cualquier tema relacionado con Access que no tenga cabida expresa en los otros hilos
epidrion
Nivel 2
Mensajes: 32
Registrado: Mar Dic 19, 2017 11:14 pm

Impresión de informes

Mensajepor epidrion » Mié Jul 15, 2020 1:40 pm

Buenos días,
Planteo una duda referente a la impresión de informes.
En mi base de datos actual ejecuto una consulta que parametrizo y consigo exportar un pdf con una página para cada registro de la consulta. Lo que me interesaría ahora seria generar un pdf para cada registro de manera que si la consulta muestra 20 regsitros se generen 20 pdfs y no uno con 20 páginas.

Gracias por adelantado

Avatar de Usuario
Fayad
Colaborador
Mensajes: 456
Registrado: Mié Oct 28, 2015 9:43 pm

Re: Impresión de informes

Mensajepor Fayad » Mié Jul 15, 2020 2:34 pm

Hola!

Adapta este código a tus necesidades:-

Código: Seleccionar todo

Private Sub Report_Click()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim NombreArchivo As String
    Dim ruta As String
    Dim temporal As String

    ruta = "C:\............"
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("SELECT [registro] FROM [NombreConsulta]", dbOpenSnapshot)
    Do While Not rs.EOF
       temporal = rs("registro")
       NombreArchivo = rs("registro") & ".PDF"

        DoCmd.OpenReport "NombredelInforme", acViewReport, , "[registro]='" & temporal & "'"
        DoCmd.OutputTo acOutputReport, "", acFormatPDF, ruta & NombreArchivo
        DoCmd.Close acReport, "REPORT"
        DoEvents

        rs.MoveNext
    Loop

    rs.Close
    Set rs = Nothing
    Set db = Nothing

End Sub
Salu2.

epidrion
Nivel 2
Mensajes: 32
Registrado: Mar Dic 19, 2017 11:14 pm

Re: Impresión de informes

Mensajepor epidrion » Jue Jul 16, 2020 12:17 pm

Buenos días,

Gracias por tu respuesta pero no tengo yo mucho nivel y no se donde poner el còdigo que me indicas

Gracias


Volver a “Cajón de sastre”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado