运行时出错‘-2147206461’

Question

在VB中用到过水晶报表，在编辑状态下一切都好用。
可是编译成EXE文件后，打印时出错：
“运行时错误‘-2147206461’（80043ac3）未找到文件”请问这是怎么回事呢〉
急死了！
请大虾们指点，不胜感激，必以高分相送。

Answer 1

代码, 呢??
 建议增加这个函数
'*************************************************************************
'**Function     :  OutPutErrMsg
'**Input        :  NULL
'**Output       :  NULL
'**Description  :  WRITE INFORMATION TO TXT WHEN ERR HAPPEN
'**Global       :
'**Modal        :
'**Writer       :  YONGJUN-ZOU(BECON)
'**Date         :  2007-04-17 14:41:09
'**Version      :  V1.0.0
'*************************************************************************
Public Sub OutPutErrMsg(FunctionName As String, ModuleName As String)    Dim lngErrFileNo As Long
    lngErrFileNo = FreeFile
    Open App.Path & "\Errmsg.txt" For Append As lngErrFileNo
    Print #lngErrFileNo, "ErrMsg:" & Format$(Now, "YYYY-MM-DD HH:MM:SS") & "," & Err.Number & "," & Err.Description & "," & FunctionName & "," & ModuleName
    Close #lngErrFileNoEnd Sub在其他函数里面使用,记录错误的模块