现有 学校日课总表kb20190101.dbf、各班教师任课表jsrkb20190101.dbf、个人课表模板grkbmb1.doc等文件，如何点击treeview中的姓名在表单上生成WORD格式的个人课表？且点击表单上的打印按钮进行打印。请高手赐教，万分感谢！！！

OleControl1的NodeClick代码有点问题：点击 TREEVIEW控件中的姓名不能生成个人任课表，请高手指点，谢谢！！！
*** ActiveX 控件事件 ***
LPARAMETERS node

 CLOSE ALL
 CLEAR
 wjm="f:\temp2\grkbmb.doc"
 PUBLIC k,mxm,cxkmc,i,j
 WordApp=CREATEOBJECT("Word.application")
 WordApp.visible=.t.
 USE jsmd20190101 ALIAS jsmd IN 0
 USE jsrkb20190101 ALIAS jsrkb IN 0
 USE kb20190101 ALIAS rkb IN 0

 SELECT jsmd
 GOTO top
    mxm=ALLTRIM(node.text) && 这一句有问题，不知如何改。
   
    WAIT WINDOW '正在生成教师个人任课表...'+ mxm nowait
     WordTable=WordApp.Application.Documents.Open(wjm)
     WordApp.Visible =.t.
     WORDAPP.ActiveDocument.Content.Find.Execute('ABCDEF',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,'&mxm',2)
     SELECT rkb
     SCAN
         cnj=rkb.nj
         cbj=rkb.bj
         FOR i=1 TO 5
          FOR j=1 TO 6
            cxkmc=ALLTRIM(EVALUATE("rkb."+"zhou"+TRANSFORM(i)+TRANSFORM(j)))
            SELECT jsrkb
            SCAN
             FOR k=1 TO FCOUNT('jsrkb')
               IF FIELD(k)=cxkmc AND EVALUATE(FIELD(k))= mxm AND ALLTRIM(nj)=cnj AND ALLTRIM(bj)=cbj
               wordTable.tables.item(1).cell(j+1,i+2).range.text=cnj+cbj+cxkmc
              endif
             ENDFOR
            ENDSCAN
           ENDFOR
          endfor
     ENDSCAN
   
    WordApp.Documents(1).saveas("F:\"+mxm+"_任程表.doc")  
    WordApp.ActiveDocument.close
  
   
 WORDAPP.quit
 WORDAPP=.NULL.
 CLOSE ALL
 QUIT
  

还没有，水平不够！

OleControl1的NodeClick代码作如下修改,点击 TREEVIEW控件中的姓名可生成个人任课表

*** ActiveX 控件事件 ***

LPARAMETERS node
CLOSE DATABASES

wjm="f:\temp2\grkbmb.doc"
PUBLIC k,mxm,cxkmc,i,j
WordApp=CREATEOBJECT("Word.application")
WordApp.visible=.t.
USE jsmd20190101 ALIAS jsmd IN 0
USE jsrkb20190101 ALIAS jsrkb IN 0
USE kb20190101 ALIAS rkb IN 0


SELECT jsmd
LOCATE FOR ALLTRIM(jsmd.姓名)==ALLTRIM(node.text)
IF FOUND()
    mxm=ALLTRIM(node.text)
    WAIT WINDOW '正在生成教师个人任课表...'+ mxm nowait
    WordTable=WordApp.Application.Documents.Open(wjm)
    WordApp.Visible =.t.
    WORDAPP.ActiveDocument.Content.Find.Execute('ABCDEF',.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,'&mxm',2)
    SELECT rkb
    SCAN
        cnj=rkb.nj
        cbj=rkb.bj
        FOR i=1 TO 5
            FOR j=1 TO 6
                cxkmc=ALLTRIM(EVALUATE("rkb."+"zhou"+TRANSFORM(i)+TRANSFORM(j)))
                SELECT jsrkb
                SCAN
                    FOR k=1 TO FCOUNT('jsrkb')
                        IF FIELD(k)=cxkmc AND EVALUATE(FIELD(k))= mxm AND ALLTRIM(nj)=cnj AND ALLTRIM(bj)=cbj
                            wordTable.tables.item(1).cell(j+1,i+2).range.text=cnj+cbj+cxkmc
                        ENDIF
                    ENDFOR
                ENDSCAN
            ENDFOR
        ENDFOR
    ENDSCAN
    WordApp.Documents(1).saveas("F:\temp3\"+mxm+"_任程表.doc")
    WordApp.ActiveDocument.close
endif
WORDAPP.quit
WORDAPP=.NULL.
* CLOSE ALL
* QUIT

如何做到在表单上显示word格式个人任课表？且单击表单上的“打印”按钮即开始打印。望高手指点，万分感谢！！！

@fyyylyl 非常感谢指点！！！受益匪浅。

@fyyylyl 加上下列代码出现打开或保存文件对话框，如何取消，请指点，谢谢！
 WordApp.ActiveDocument.close
 thisform.OleWeb1.Navigate(FileName)
 thisform.refresh

[此贴子已经被作者于2022-4-22 08:42编辑过]