On Error GoTo Err_39_Click
If t2.SourceObject = "" Then
MsgBox "..      "
Exit Sub
End If

Dim stLinkCriteria As String
stLinkCriteria = "[ ]='" & [30] & "' And []='" & [32] & "' And [ ]='" & [__35] & "'"


    Dim stDocName As String

    stDocName = ChrW(1578) & ChrW(1602) & ChrW(1585) & ChrW(1610) & ChrW(1585) & ChrW(49)
    DoCmd.OpenReport stDocName, acViewReport, , stLinkCriteria


DoCmd.OutputTo acOutputReport, "1", acFormatXLS, CurrentProject.Path & "\" & stDocName & ".xls", True


Exit_39_Click:
    Exit Sub

Err_39_Click:
    MsgBox Err.Description
    Resume Exit_39_Click