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