yer = CurrentProject.Path & "\Çözgü Artıkları Listesi.xls"
DoCmd.OutputTo acOutputReport, "raporadı", acFormatXLS, yer ', True
istediğiniz gibi olmazsa Vba ile Excel açtırılıp kodlarla biçimlendirilebilir
rapor sayfası olarak hazırlayıp onu excele göndermeyi deneyebilirsiniz