Ошибка выполнения «2489: объект« Список заслуг »не открыт

Question

Я пытаюсь напечатать отчет под названием «Список заслуг» через кнопку формы;
Вот код, который я написал:

Private Sub CreateKey_Click()

    Dim Prompt, Title, Response

    Prompt = "All merit Lists will be Created!" & vbCrLf & "Do you want to print them?"
    Buttons = vbYesNoCancel
    Title = "Merit Lists Created!"
    Response = MsgBox(Prompt, Buttons, Title)

    If Response = 2 Then
        DoCmd.CancelEvent
        MsgBox "No Data was changed.", vbExclamation, "Cancelled!"
    End If

    If Response = 6 Then
        DoCmd.OpenQuery ("Merit List Generator")
        DoCmd.OpenQuery ("Merit List Creator")
        DoCmd.OpenReport "Merit List", acViewNormal, , , acHidden
        DoCmd.SelectObject acReport, "Merit List"
        DoCmd.PrintOut acSelection
        DoCmd.Close acReport, "Merit List"
        DoCmd.Close acQuery, "Merit List Creator"
        DoCmd.Close acQuery, "Merit List Generator"
    End If

    If Response = 7 Then
        DoCmd.OpenQuery "Merit List Creator"
    End If


    QuotaVal.Value = Null
    GroupVal.Value = Null
    If Response <> 2 Then
        MsgBox "Successfully Completed.", vbInformation, "Merit Lists Generated!"
    End If

    OMCheck.Value = True
    OMCheck.SetFocus
    QuotaVal.Enabled = False
    GenerateKey.Enabled = False
    CreateKey.Enabled = False
    CreateAllKey.Enabled = False
    QuotaVal.Value = Null
    SessVal.Value = Null
    MeritListVal.Value = Null
    GroupVal.Value = Null

End Sub

Я попытался распечатать его, не открывая в режиме «acHide»но все равно выдает мне ту же ошибку:

Ошибка времени выполнения «2489»: объект «Список заслуг» не открыт.

Кстати, у меня нет принтера ...
Это из-за отсутствия принтера или чего-то еще?