[AccessD] Saving as *.rpt

Good afternoon group,

How do I save a file as *.rpt ? should I reference CR somehow ? I am in 97
(can reference CR export, and viewr control) I have no problem saving as
*.xls using the same code

Oleg


Function file_rename()

Dim objE        As excel.Application
Dim sDate       As String
Dim sEmail      As String
Dim sTMail      As String

Set fs = New FileSystemObject

If WeekDay(Now()) = vbMonday Then
    sDate = Format(Now() - 2, "mmddyyyy")
Else
    sDate = Format(Now(), "mmddyyyy")
End If

Set objE = CreateObject("Excel.Application")

With objE
    .Visible = False
    .Application.Workbooks.Open empfileloc & org_filename
    .Application.ActiveWorkbook.SaveAs filename:=empfileloc & new_filename
& sDate & ".rpt", _
    ReadOnlyRecommended:=False, AccessMode:=xlNoChange
    .Application.ActiveWorkbook.Close
End With
objE.Quit

End Function


-----------------------------------------
Get Breaking News from CNN, ABC, NBC, CBS Now.
http://www.xuppa.com/news/?link=webmail