B bob May 27, 2006 #2 You can do it with this code but be warned that the formatting is far from perfect: Function RptToExcel() On Error GoTo RptToExcel_Err DoCmd.OutputTo acReport, "RptTest", "MicrosoftExcelBiff8(*.xls)", "c:\temp\test.xls", False, "", 0 RptToExcel_Exit: Exit Function RptToExcel_Err: MsgBox Error$ Resume RptToExcel_Exit End Function Bob Galway
You can do it with this code but be warned that the formatting is far from perfect: Function RptToExcel() On Error GoTo RptToExcel_Err DoCmd.OutputTo acReport, "RptTest", "MicrosoftExcelBiff8(*.xls)", "c:\temp\test.xls", False, "", 0 RptToExcel_Exit: Exit Function RptToExcel_Err: MsgBox Error$ Resume RptToExcel_Exit End Function Bob Galway