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í
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í
no he dado con la solución, pudieren alguien ayudarme?
Valora esta pregunta
0