Come posso aggiungere un pulsante a un rapporto di accesso per esportarlo in Excel/PDF?

Question

Come posso aggiungere un pulsante a un report di Microsoft Access per esportarlo in Excel/PDF?

Answer 1

Christian ha suggerito un pulsante di comando su un modulo, ma potresti anche creare una barra degli strumenti per il rapporto con un pulsante su di esso che esporrebbe il rapporto a Eccellere. Ma come dice Tony, i risultati saranno brutti.

Direi che più utile sarebbe un pulsante che esporta i dati visualizzati nel report in un foglio di calcolo di Excel. La formattazione non sarebbe così carina, ma sarebbe molto più utile e manipolabile. Per fare ciò, devi utilizzare DoCmd.TransferSpreadsheet e una Query salvata come origine di esportazione (equivalente alla Documentazione del report).

Answer 2

Modules: Sample Excel Automation - cella per cella, che è lento

Modules: Transferring Records to Excel with Automation

Nota se l'automazione di Excel suggerito è in realtà contro una query come l'esportazione dei report in Excel li rende estremamente brutto. Se ricordo correttamente questa funzionalità è stata rimossa in Access 2007.

A2000ReportToPDF è un database di Access 2000 che contiene una funzione per convertire i file di report e snapshot in documenti PDF. Non è richiesto alcun driver di stampa PDF. Gratuito.

Answer 3

AFAIK non è possibile "aggiungerlo" al rapporto. Ma sul modulo che si apre il report, è possibile aggiungere un pulsante con il seguente codice:

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

Only Access 2007 has support for PDF's. Quindi dovrai installare una stampante PDF o usare il suggerimento Tony Toews

Answer 4

Ho appena combinato alcune delle risposte precedenti e questo è il mio blocco di codice finale che esporta un report in Excel e quindi apre il file 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