Exportación de informe access a pdf
Con un código exporto un informe de access a pdf, lo hace bien solo que sale deformado
Private Sub ExpInfProgEmit_Click()
Dim Ruta: Ruta = CurrentProject.Path: Ruta = Left(Ruta, InStrRev(Ruta, "\")) & "tmp_SGRADIO_CAPTAv1.0 INFORMES PROGRAMAS\"
On Error GoTo ExpInfProgEmit_Err
DoCmd.OutputTo acOutputReport, "ProgramaEmitidoOC", "PDFFormat(*.pdf)", Ruta & "ProdMusicalv1.0 " & DLookup("FProg", "ProgramaEmitidoFecha") & ".pdf", False, "", , acExportQualityPrint
ExpInfProgEmit_Exit:
Exit Sub
ExpInfProgEmit_Err:
MsgBox Error$
Resume ExpInfProgEmit_Exit
End Sub
Nota: no me deja subir la imagen pero el texto salen las letras montadas unsa sobre otras
1 Respuesta
I. Hola Carlos, en mi caso desconozco la respuesta y no soy usuario habitual de Access pero ví una información que deseaba trasladarle -enlaces y videos-, por si pudiesen serle de utilidad mientras le atiende un experto en este programa de primera mano. Le ruego me disculpe la imprecisión y todas las molestias de lectura, ánimo.
https://es.stackoverflow.com/questions/320593/error-al-exportar-en-pdf-con-report-viewer
https://www.linkedin.com/pulse/export-access-report-pdf-step-by-step-robinsan-shaw-gvpqe/
