Access VisualBasic Script

Sub NewReport()
    Dim myReport As Report
    Set myReport = CreateReport
    DoCmd.Close , , acSaveYes
End Sub