¿Cómo puedo agregar un botón a un informe de Access para exportarlo a Excel/PDF?

Question

¿Cómo puedo agregar un botón a un informe de Microsoft Access para exportarlo a Excel/PDF?

Answer 1

Christian ha sugerido un botón de comando en un formulario, pero también podría crear una barra de herramientas para el informe con un botón que exportaría el informe a Sobresalir. Pero como Tony dice, los resultados serán feos.

Yo diría que más útil sería un botón que exporta los datos que se muestran en el informe a una hoja de cálculo de Excel. El formateo no sería tan bonito, pero sería mucho más útil y manipulable. Para eso, usaría DoCmd.TransferSpreadsheet y una consulta guardada como su fuente de exportación (equivalente a Recordsource del informe).

Answer 2

Modules: Sample Excel Automation - célula por célula que es lento

Modules: Transferring Records to Excel with Automation

nota de que la automatización de Excel sugerido es en realidad contra una consulta como exportar informes a Excel los hace muy feo. Si recuerdo correctamente, esta característica fue eliminada en Access 2007.

A2000ReportToPDF es una base de datos Access 2000 que contiene una función para convertir archivos de Informes y Snapshots a documentos PDF. No se requiere un controlador de impresora PDF. Gratis.

Answer 3

AFAIK no puede "agregarlo" al informe. Pero en el formulario que se abre el informe, se puede añadir un botón con el siguiente código:

DoCmd.OutputTo acOutputReport, "ReportName", acFormatXLS, 
"c:\YourFolderName\ReportName - " & Format(Date, "yyyymmdd") & ".xls" 

Only Access 2007 has support for PDF's. Por lo tanto, deberá instalar una impresora PDF o utilizar la sugerencia de Tony Toews

Answer 4

Acabo de combinar algunas de las respuestas anteriores y este es mi bloque de código final que exporta un informe a excel y luego abre dicho archivo de Excel.

Private Sub Command79_Click() 
'initialize variables 
Dim strReportName As String 
Dim strPathUser As String 
Dim strFilePath As String 

'set variables 
strReportName = "AlarmLetterForSF" 
strPathUser = Environ$("USERPROFILE") & "\my documents\" 
strFilePath = strPathUser & strReportName & Format(Date, "yyyymmdd") & ".xls" 

'export to excel 
DoCmd.OutputTo acOutputReport, strReportName, acFormatXLS, strFilePath 

'launch excel file 
Dim Shex As Object 
Set Shex = CreateObject("Shell.Application") 
Shex.Open (strFilePath) 

End Sub