Skip to main content
se añadieron 2161 caracteres en el cuerpo
Origen Enlace

Tengo una base de datos que genera un informe en formato PDF y lo guarda con un nombre específico en una ruta específica (el nombre del archivo PDF es el DNI del interesado, la fecha del informe y el nombre del informe). El caso es que cuando la consulta en la que se basa el informe ofrece más de un resultado me guarda todos los informes en un solo archivo PDF. Cómo puedo hacer para que guarde los archivos por separado, cada uno con su nombre??

El código que uso :

Public Sub ImprimirNotificacionSinSuspensión()

'Notificacion sin suspensión
Opcion = 1 'Correos
SubOpcion = 1
Mensaje = "¿Guardar Notificación sin suspensión AI-1?"
Estilo = 36
Respuesta = MsgBox(Mensaje, Estilo)
If Respuesta = vbYes Then
    If IsNull(FIRMA) Or IsNull(CARGOCASTELLANO) Then
        MsgBox "Falta Firma"
        Exit Sub
    End If
                
Dim myPath As String
Dim strReportName As String
Dim Dni As String

DoCmd.OpenReport "Acuses recibo", acViewPreview

Dni = Reports![Acuses recibo].[Dni] 'to access the field for the value on the report

myPath = "V:\Aplicaciones\Andromeda\Acuses de recibo\"

strReportName = Dni & " - " & Format(Now(), "YYYYMMDD") & " - Acuse NOTIFICACIÓN SIN INTERVENCIÓN (AI-1).pdf"

DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath + strReportName, True
DoCmd.Close acReport, "Acuses recibo"

DoCmd.OpenReport "Notificacion sin suspension", acViewPreview

Dni = Reports![Notificacion sin suspension].[Dni] 'to access the field for the value on the report

myPath = "V:\Aplicaciones\Andromeda\Enviar a Portafirmas\"

strReportName = Dni & " - " & Format(Now(), "YYYYMMDD") & " - NOTIFICACIÓN SIN INTERVENCIÓN (AI-1).pdf"

DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath + strReportName, True
DoCmd.Close acReport, "Notificacion sin suspension"
        DoCmd.SetWarnings False
        DoCmd.OpenQuery "Actualiza Notificacion Sin Suspension"
        CPrevi10 = 0
    
    MsgBox "Documento Guardado"
    MsgBox "Acuse de recibo Guardado"
    
    InputBox "Texto Corto en COND", "Anotación en COND", "INICIADA PV PSICOFISICA. PENDIENTE SANIDAD. ARCH EN PTES"
    InputBox "Texto Descripción en COND", "Anotación en COND", "INICIADO PROCEDIMIENTO DE PV POR PÉRDIDA DE APTITUDES PSICOFISICAS. PENDIENTE REVISION SANIDAD. ARCH EN PENDIENTES"
    Else
        DoCmd.OpenReport "Notificacion sin suspension", acViewPreview

        End If

End Sub

Tengo una base de datos que genera un informe en formato PDF y lo guarda con un nombre específico en una ruta específica (el nombre del archivo PDF es el DNI del interesado, la fecha del informe y el nombre del informe). El caso es que cuando la consulta en la que se basa el informe ofrece más de un resultado me guarda todos los informes en un solo archivo PDF. Cómo puedo hacer para que guarde los archivos por separado, cada uno con su nombre??

Tengo una base de datos que genera un informe en formato PDF y lo guarda con un nombre específico en una ruta específica (el nombre del archivo PDF es el DNI del interesado, la fecha del informe y el nombre del informe). El caso es que cuando la consulta en la que se basa el informe ofrece más de un resultado me guarda todos los informes en un solo archivo PDF. Cómo puedo hacer para que guarde los archivos por separado, cada uno con su nombre??

El código que uso :

Public Sub ImprimirNotificacionSinSuspensión()

'Notificacion sin suspensión
Opcion = 1 'Correos
SubOpcion = 1
Mensaje = "¿Guardar Notificación sin suspensión AI-1?"
Estilo = 36
Respuesta = MsgBox(Mensaje, Estilo)
If Respuesta = vbYes Then
    If IsNull(FIRMA) Or IsNull(CARGOCASTELLANO) Then
        MsgBox "Falta Firma"
        Exit Sub
    End If
                
Dim myPath As String
Dim strReportName As String
Dim Dni As String

DoCmd.OpenReport "Acuses recibo", acViewPreview

Dni = Reports![Acuses recibo].[Dni] 'to access the field for the value on the report

myPath = "V:\Aplicaciones\Andromeda\Acuses de recibo\"

strReportName = Dni & " - " & Format(Now(), "YYYYMMDD") & " - Acuse NOTIFICACIÓN SIN INTERVENCIÓN (AI-1).pdf"

DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath + strReportName, True
DoCmd.Close acReport, "Acuses recibo"

DoCmd.OpenReport "Notificacion sin suspension", acViewPreview

Dni = Reports![Notificacion sin suspension].[Dni] 'to access the field for the value on the report

myPath = "V:\Aplicaciones\Andromeda\Enviar a Portafirmas\"

strReportName = Dni & " - " & Format(Now(), "YYYYMMDD") & " - NOTIFICACIÓN SIN INTERVENCIÓN (AI-1).pdf"

DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath + strReportName, True
DoCmd.Close acReport, "Notificacion sin suspension"
        DoCmd.SetWarnings False
        DoCmd.OpenQuery "Actualiza Notificacion Sin Suspension"
        CPrevi10 = 0
    
    MsgBox "Documento Guardado"
    MsgBox "Acuse de recibo Guardado"
    
    InputBox "Texto Corto en COND", "Anotación en COND", "INICIADA PV PSICOFISICA. PENDIENTE SANIDAD. ARCH EN PTES"
    InputBox "Texto Descripción en COND", "Anotación en COND", "INICIADO PROCEDIMIENTO DE PV POR PÉRDIDA DE APTITUDES PSICOFISICAS. PENDIENTE REVISION SANIDAD. ARCH EN PENDIENTES"
    Else
        DoCmd.OpenReport "Notificacion sin suspension", acViewPreview

        End If

End Sub

Origen Enlace

Generar diferentes informes en PDF con diferentes nombres en base a una consulta

Tengo una base de datos que genera un informe en formato PDF y lo guarda con un nombre específico en una ruta específica (el nombre del archivo PDF es el DNI del interesado, la fecha del informe y el nombre del informe). El caso es que cuando la consulta en la que se basa el informe ofrece más de un resultado me guarda todos los informes en un solo archivo PDF. Cómo puedo hacer para que guarde los archivos por separado, cada uno con su nombre??