Informe access que busque y guarde en formato pdf en una carpeta colocando el nombre
Estoy diseñando un bd necesito realizar un código en un botón que me permita buscar un informe y después me permita guardar en formato pdf en una carpeta especifica colocando el nombre antes de guardar
El formulario de nombre (aplicación) que contiene un cuadro de texto de nombre cedula es numérico y un informe (imprimir_inspeccion) necesito que al momento de colocar la cedula en el cuadro del formulario me busque en el informe todos los datos que contenga el informe y luego pueda guardar en formato pdf.
1 respuesta
El siguiente código lo pondrás en el evento al activar de tu reporte que quieres imprimir(Esto sirve para abrir la venta de guardar como). Sustituye el nombre de tu reporte en el codigo "Nombre del reporte"
Private Sub Report_Activate() On Error GoTo Err_Report_Activate DoCmd.RunCommand acCmdPrint DoCmd.Close acReport, "Nombre de tu reporte" Exit_Imprimir: Exit Sub Err_Report_Activate: If Err.Number = 2501 Or Err.Number = 3021 Then DoCmd.Close acReport, "Nombre de tu reporte" Exit Sub End If MsgBox Err.Description Resume Exit_Imprimir End Sub
Cuado abras tu reporte pondras el siguiente codigo:
DoCmd. OpenReport "Nombre de tu reporte", acViewPreview,,, acHidden
Si tienes impresora pdf seleccionas la impresora pdf. Si no instalarla
buenas tardes casi no tengo dominio de programacion
el primir codigo lo coloque en la hoja de propiedades del informe al activar registro es asi o no
y el segundo donde se coloca
El segundo lo colocas en donde tengas la instrucción de abrir el reporte(El botón de imprimir)
Option Compare Database
Private Sub Report_Activate()
On Error GoTo Err_Report_Activate
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, "IMPRIMIR_INSPECCION"
Exit_Imprimir:
Exit Sub
Err_Report_Activate:
If Err.Number = 2501 Or Err.Number = 3021 Then
DoCmd.Close acReport, "IMPRIMIR"
Exit Sub
End If
MsgBox Err.Description
Resume Exit_Imprimir
End Sub
Private Sub Comando17_Click()
DoCmd.OpenReport "Nombre de tu reporte", acViewPreview, , , acHidden
End Sub
ESTO FUE LO QUE REALICE
El segundo lo coloque en el botón de imprimir informe que esta en el formulario y me un error
me dio error al momento de darle clik en e boton de imprimir informe
DoCmd. OpenReport "Nombre de tu reporte", acViewPreview,,, acHidden
Pues te falta poner tu nombre del reporte lo pusiste como lo deje "Nombre de tu reporte"
DoCmd. OpenReport "IMPRIMIR_INSPECCION", acViewPreview,,, acHidden
me da este error
Este es el código que coloque
No puedes poner los 2 códigos juntos, el código donde abres tu reporte va en el botón del formulario imprimir.
