Como posso adicionar um botão a um relatório de Acesso para exportá-lo para o Excel / PDF?
Como posso adicionar um botão a um relatório de Acesso Microsoft para exportá-lo para o Excel / PDF?
4 answers
Christian sugeriu um botão de comando em um formulário, mas você também poderia criar uma barra de ferramentas para o relatório com um botão nele que iria exportar o relatório para o Excel. Mas como diz O Tony, os resultados vão ser feios.
Eu diria que mais útil seria um botão que exportasse os dados mostrados no relatório para uma planilha do Excel. A formatação não seria tão bonita, mas seria muito mais útil e manipulável. Para isso, usarias o DoCmd.TransferSpreadsheet e um gravado Consulta Como sua fonte de exportação (equivalente à fonte de registro do relatório).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)
Fim
Módulos: amostra de automação do Excel - célula por célula que é lenta
Módulos: transferência de registros para o Excel com automação
Note que embora a automação do Excel sugerida seja realmente contra uma consulta, uma vez que exportar relatórios para o Excel os torna extremamente feios. Se bem me lembro, esta funcionalidade foi removida no Access 2007.
A2000ReportToPDF é uma base de dados Access 2000 que contém uma função para converter relatórios e ficheiros instantâneos para documento. Não é necessário nenhum controlador de impressora PDF. Livre.
DoCmd.OutputTo acOutputReport, "ReportName", acFormatXLS,
"c:\YourFolderName\ReportName - " & Format(Date, "yyyymmdd") & ".xls"
Apenas o Access 2007 tem suporte para PDF . Então você terá que instalar uma impressora PDF ou usar Tony Toews suggestion