Crear Informe de Access a PDF
Estoy intentando pasar un informe ya creado a PDF, pero me da error 2059 en tiempo de ejecución, el código que tengo en el botón es el siguiente:
Private Sub btnpdf_Click() Dim vNomArchivo As String Dim vNomInforme As String Dim vRutaArchivo As String vNomArchivo = Me.Paciente & " - " & Me.NumFactura vRutaArchivo = Application.CurrentProject.Path & "\Facturas\" DoCmd.OpenReport "rptFacturas", acViewPreview, , "IDFactura=" & Me.IDFactura, acHidden DoCmd.OutputTo acOutputReport, vNomArchivo, acFormatPDF, vRutaArchivo, True DoCmd.Close acReport, "rptFacturas" MsgBox "Factura nº" & " " & vNomArchivo & " " & "guardada", vbOKOnly Or vbInformation Or vbMsgBoxRtlReading Or vbMsgBoxRight Or vbSystemModal, "Clínica - V.1.0" End Sub
Pero me marca ese error.
1 Respuesta
Respuesta de Eduardo Pérez Fernández
1
Este error de ejecución indica que Access no puede encontrar el objeto. Falta el nombre del archivo en la línea
vRutaArchivo = Application.CurrentProject.Path & "\Facturas\"
El error no me lo marca hay si no en esta línea
DoCmd.OutputTo acOutputReport, vNomArchivo, acFormatPDF, vRutaArchivo, True
Si claro esta el nombre de la carpeta ¿y el nombre del pdf?
vNombreArchivo
Correcto ese es el path pero después de facruras\ debe ir el nombre del pdf
