Использование PrintReport для нескольких отчетов

Не кидайтесь тапками, я еще в процессе самообучения. В форме создал кнопочку, при нажатии которой одним запросом должны распечатываться несколько отчетов, так сказать пакетом. Переделал сценарий обработки с другой похожей кнопки, которую делал не я) Но кнопочка упорно не хочет работать. Может кто-либо подсказать, что я упустил? Заранее спасибо

Private Sub пакет_коррект_Click()
On Error GoTo Err_пакет_коррект_Click
DoCmd.RunMacro "МакроРазвернуть.ВосстановитьОкно"
    Dim stDocName As String, КолСтрок
    
    Select Case Операция
    Case 1, 15
        'Call PrintReport("БланкКорректировки", 2)
        If Дата > #12/16/2011# Then
        Call PrintReport("Корректировочная накл 2012 (a)", 1)
        Call PrintReport("Корректировочная накл 2012 (b)", 1)
        Else
        Call PrintReport("Корректировочная накл 2011", 2)
        End If
    Case Else
    End Select

Exit_пакет_коррект_Click:
    Exit Sub
    
Err_пакет_коррект_Click:
    MsgBox err.Description
    Resume Exit_пакет_коррект_Click
End Sub

Все, разобрался сам)
Какого-то фига не допер что стоит отбор по ячейке операция, убрал его и все норм работает

Private Sub пакет_коррект_Click()
On Error GoTo Err_пакет_коррект_Click
DoCmd.RunMacro "МакроРазвернуть.ВосстановитьОкно"
    Dim stDocName As String, КолСтрок
    
    'Call PrintReport("БланкКорректировки", 2)
    If Дата > #12/16/2011# Then
    Call PrintReport("Корректировочная накл 2012 (a)", 1)
    Call PrintReport("Корректировочная накл 2012 (b)", 1)
    Else
    Call PrintReport("Корректировочная накл 2011", 2)
    End If
    
Exit_пакет_коррект_Click:
    Exit Sub
    
Err_пакет_коррект_Click:
    MsgBox err.Description
    Resume Exit_пакет_коррект_Click
End Sub