Lookup_fieldname.Name = "value"

Private Sub cmdPrint_Click()
On Error GoTo Err_cmdPrint_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "rptDocumentList"
    stLinkCriteria = "[DocumentTypeID] = " & comboDocumentType.Column( 0 ) & " AND " & Form_DocumentListSub.Filter
    DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Exit_cmdPrint_Click:
    Exit Sub

Err_cmdPrint_Click:
    MsgBox Err.Description
    Resume Exit_cmdPrint_Click
    
End Sub

"[DocumentTypeID] = 1 AND ((Lookup_InstitutionID.Name="Авторские телевизионные новости Телекомпания ЗАО"))"