Este tutorial de Access VBA discutirá cómo interactuar con Access Reports usando VBA.
Imprimir reporte
Esta función de VBA imprimirá un informe de acceso:
Función pública Print_Report (ReportName como cadena) en caso de error Ir a SubError DoCmd.OpenReport ReportName, acViewPreview``, acHiden DoCmd.SelectObject acReport, ReportName DoCmd.RunCommand acCmdPrint SubSalir: Función de salida SubError: MsgBox "Print_Report. Error: MsgBox" Print_Report. Número & ":" & Err.Descripción Función final
Puedes llamar a la función así:
Private Sub Print_Report_Example () Llamar Print_Report ("Report1") End Sub
Observe que la función usa la siguiente línea de código para imprimir el informe:
DoCmd.RunCommand acCmdPrint
después de abrir y seleccionar el informe (consulte la siguiente sección).
Abrir / Seleccionar informe
La función anterior utilizó DoCmd.OpenReport para abrir el informe:
DoCmd.OpenReport "Informe1", acViewPreview``,, acHiden
Nota: para este ejemplo, reemplazamos la variable Reportar nombre con nombre de tabla "Informe1"
A continuación selecciona el informe:
DoCmd.SelectObject acReport, "Report1"
Informe de filtro
También puede filtrar un informe abriendo el informe con criterios específicos:
DoCmd.OpenReport "Informe1", acViewPreview, "num = 0"
Exportar informe a Excel
Puede utilizar DoCmd.OutputTo para generar el informe en Excel:
DoCmd.OutputTo acOutputReport, "Rpt1", acFormatXLS, "C: \ examples \ report1.xls"
Esta función de VBA exportará un informe a Excel:
Función pública Export_Report (ReportName como cadena, FilePath como cadena) En caso de error Ir a SubError DoCmd.OutputTo acOutputReport, ReportName, acFormatXLS, FilePath SubSalir: Función de salida SubError: Llamar Export_Report ("Informe1", "c: \ temp \ ExportedReport.xls") Función final
La función se guardará en la ruta de archivo ingresada, pero si no se elige ninguna ruta de archivo, se guardará en la carpeta temporal de la unidad C.
Puedes llamar a la función así:
Private Sub Export_Report_Example () Llamar Export_Report ("Rpt1", "C: \ examples \ report1.xls") End Sub
El DoCmd.OutputTo genera un archivo nuevo. En su lugar, puede exportar a un archivo existente o usar DoCmd.OutputTo para generar otros objetos de Excel. Puede obtener más información en nuestro artículo sobre Importación / Exportación en Access VBA.
