现有表文件cywj.dbf,如何在文件打印.scx的组合框Combo1中显示表文件cywj.dbf中“文件名”下的所有文件名,选择其中的任一文件，按“打印”按钮进行打印，组合框Combo1的有关事件代码如何写，请高手赐教，万分感谢！！！

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

@吹水佬 我是新手，烦请您帮忙完善一下我的 文件打印.scx 万分感谢！！！

@wengjl  cywj.dbf已发在压缩文件cywj.zip中，能帮忙完善一下我的 文件打印.scx 吗？ 万分感谢！！！

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

恳请各位高手帮忙完善一下我的 文件打印.scx ，万分感谢！！！ （因为我是新手，很想学习VFP表单的设计）

@wengjl 谢谢你！

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

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

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

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

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

“打印”按钮的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