@wengjl 您好！想再次麻烦你帮帮我，在表文件cywj.dbf中，我的好多文件放在不同的文件夹下，如何点选某个文件，按“打印”按钮进行打印（您提供的代码要求表文件、文档文件、表单文件必须放在同一个文件夹下）

文档文件与表文件、表单文件不在同一个文件夹下，如何实现上述功能？望赐教！

[此贴子已经被作者于2019-3-14 08:46编辑过]

把打开文档中的默认路径变量换成你表中路径即可

@wengjl 是这样改吗？ wordapp.application.documents.open(cywj.路径+'\'+wjm)
好像没用。

[此贴子已经被作者于2019-3-14 11:00编辑过]

表中路径字段中末尾无斜杠的，OPEN括号中的斜杠要的；若表中末尾有斜杠的，则open()中的斜杠就不要的

红的里面包含了好多的空格，所以与实际不符。还有后面的“\”问题

“打印”按钮的CLICK事件代码修改为下列代码，提示“你选择的文档不存在！！！”，望高手赐教！

SET TALK OFF
SET SAFETY OFF
SET COMPATIBLE OFF

cCurrentProcedure = SYS(16,1)
nPathStart = AT(":",cCurrentProcedure)- 1
nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart)
mypath=SUBSTR(cCurrentProcedure, nPathStart, nLenofPath)
SET Default TO (mypath)

IF EMPTY( )
  MESSAGEBOX('请选择要打印的文档！！！',64,'提示：')
  RETURN
ENDIF
wjm=ALLTRIM()+'.'+ALLTRIM(cywj.文件类型)

*IF !FILE(mypath+'\'+wjm)
IF !FILE(ALLTRIM(cywj.路径)+'\'+wjm)
  MESSAGEBOX('你选择的文档不存在！！！',64,'提示：')  &&& DBF中录入的名称与实际不符时有用
  RETURN
ENDIF
DO case
  CASE ALLTRIM(cywj.文件类型)=='doc' OR ALLTRIM(cywj.文件类型)=='docx'
    wordapp=CREATEOBJECT("word.application")
    wordapp.visible=.t.
   * wordapp.application.documents.open(mypath+'\'+wjm)
    wordapp.application.documents.open(ALLTRIM(cywj.路径)+'\'+wjm)
    wordapp.ActiveDocument.PrintOut
    wordapp.quit
    RELEASE wordapp
  CASE  ALLTRIM(cywj.文件类型)=='xls' OR ALLTRIM(cywj.文件类型)=='xlsx'
    oExcel=CREATEOBJECT("excel.application")
    oExcel.workbooks.open(ALLTRIM(cywj.路径)+'\'+wjm)
    oExcel.visible=.t.
    *oExcel.Activeworkbook.PrintPreview
    oExcel.Activeworkbook.PrintOut()
    oExcel.quit
    RELEASE oExcel
ENDCASE
thisform.refresh
RETURN
   

Office软件通常是办公电脑的标配，实在没必要弄这一出的。

体悟明白了，才知道从哪修改。远水救不了近火哎！