Quiero crear un código que me permita exportar un informe abierto a PDF. He creado el siguiente código en el evento "al cerrar" del informe:
Private Sub Report_Close()
Dim Respuesta As String
Respuesta = MsgBox("¿Deseas exportar el albarán en formato PDF?", 36, "Atención")
If Respuesta = vbYes Then
Dim Nombre_Fichero As String
Dim Año_Albaran As String
Año_Albaran = Forms![Formulario Ventas-Ingresos]![Año]
Nombre_Fichero = Año_Albaran & "-" & Forms![Formulario Ventas-Ingresos]![Serie_Albaran] & "-" & Forms![Formulario Ventas-Ingresos]![Id_Albaran]
Dim Ruta_Fichero As String
Dim Path As String
Path = CurrentProject.Path
Ruta_Fichero = Path & "\Documentos\Albaranes\" & Año & "\" & Nombre_Fichero & ".pdf"
DoCmd.OutputTo acOutputReport, "Albaran", "PDFFormat(*.pdf)", Ruta_Fichero, True, "", 0, acExportQualityPrint
Else
End If
El problema es que surje el siguiente error: Se ha producido el error "2585" en tiempo de ejecución: No se puede ejecutar esta acción mientras se procesa un evento de formulario o de informe"
¿Como puedo solucionarlo?, Gracias
