Problema al exporta a pdf un informe
Publicado por Jon (11 intervenciones) el 05/11/2016 19:40:23
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:
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Report_Close()
Dim Respuesta As String
Respuesta = MsgBox("¿Deseas exportar el albarán en formato PDF?", 36, "Atención")
If Respuesta = vbYes ThenDim 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
¿Como puedo solucionarlo?, Gracias
Valora esta pregunta
0