![sin imagen de perfil sin imagen de perfil](/img/anonymouse.png)
exportaciones de informes a pdf
Publicado por carlos aprendiz (70 intervenciones) el 23/05/2024 04:41:36
hola, tengo un código que me exporta a pdf un informe de access
pero al abrir el informe se muestra así
![pdf](/usr/384000/384479/664eacb83f7c0-pdf.png)
no he dado con la solución, pudieren alguien ayudarme?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
pero al abrir el informe se muestra así
![pdf](/usr/384000/384479/664eacb83f7c0-pdf.png)
no he dado con la solución, pudieren alguien ayudarme?
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0