现有表文件jsrkb20181001.dbf和动态生成报表文件MYREPORT2018.PRG,运行下列语句出错，提示“报表结构文件不能为空！”，如何修改或操作请高手赐教，万分感谢！
use jsrkb20181001
MYREPORT2018('班级学科任课教师','2018年秋学期各班任课教师一览表')

在附件“程序及表文件”中

现有表文件jsrkb20181001.dbf和动态生成报表文件MYREPORT2018.PRG,运行下列语句出错，提示“报表结构文件不能为空！”，如何修改或操作请高手赐教，万分感谢！
use jsrkb20181001
 MYREPORT2018('班级学科任课教师','2018年秋学期各班任课教师一览表')


MYREPORT2018.PRG程序如下：
*调用方法：MYREPORT2006([<报表文件名>],[<报表标题>],[<左页眉>],[<中页眉>],[<右页眉>],[<左页脚>],[<中页脚>],[<右页脚>],;
*<报表结构文件名>,<报表打印列数>[,表头字体][,表头字号][,表体字体][,表体字号][,行高][,是否伸展][,打印方向])
*使用举例：
*报表文件放在"C:\TEMP"目录下
*cFilePath="C:\TEMP\"
*IF !DIRECTORY((cFilePath))
*   MD (cFilePath)
*ENDIF
*定义标题，页眉，页脚
*reportname='MYREPORT'  &&报表文件名
*titlename='我的动态报表'  &&报表标题
*leftHeader="编制单位："
*centerHeader="日期："+DTOC(DATE())+"至"+DTOC(date())
*rightHeader='"共 "+ALLTRIM(STR(_PAGETOTAL))+" 页 第 "+ALLTRIM(STR(_PAGENO))+" 页"'
*leftFooter="制表人："
*centerFooter="复核人："
*rightFooter="打印日期："+TTOC(DATETIME())
*tmpfilename=SYS(2015)  &&报表结构文件名(随机值)
*lnColumns=thisform.grid1.ColumnCount  &&打印列数
*nLockColumns=thisform.grid1.LockColumns &&锁定列数
*title_f  &&几种可选字体，'黑体'，'宋体'，'楷体_GB2312'，'隶书'
*title_fontsize=16
*detail_f
*detail_fontsize=9
*nRowHeight=1800   &&行高，默认值--2200
*lStretch=.F.   &&溢出时是否伸展,默认值.F.,不伸展
*nOrientation=0   &&打印方向(0-竖向,1-横向)，默认为0-竖向
*IS_PRINT_MOREPAGE=.F.  &&是否打印多页

*SELECT * FROM MYTABLE INTO CURSOR TMP_RPT
*SELECT TMP_RPT
*tempfilename=SYS(2015)
*COPY STRUCTURE TO (cFilePath)+(tempfilename) EXTENDED
*SELECT *,space(128) as 列标题,CAST(0 as numeric(10)) as 列宽,.F. as 锁定列,.F. as 打印;
 FROM (cFilePath)+(tempfilename);
 INTO CURSOR (tmpfilename) READWRITE
*USE IN (tempfilename)
*ERASE (cFilePath)+(tempfilename)+'.*'
*SELECT (tmpfilename)
*N=1
*SCAN
*   lcFiledName=IIF(n<=lnColumns,THISFORM.GRID1.COLUMNS(N).HEADER1.CAPTION,FIELD_NAME)
*   lnWidth=IIF(n<=lnColumns,THISFORM.GRID1.COLUMNS(N).WIDTH*100,7500)
*   isLock=IIF(n<=nLockColumns,.T.,.F.)
*   REPLACE 列标题 WITH lcFiledName,列宽 WITH lnWidth,锁定列 WITH isLock
*   N=N+1
*ENDSCAN
*COUNT TO nHideColumns FOR 列宽<=1000  &&隐藏的列数

*PUBLIC nPrint_Columns
*nPrint_Columns=nHideColumns  &&已打印的列数
*DO WHILE .T.
 *SELECT TMP_RPT
 *MYREPORT2006(reportname,titlename,leftHeader,centerHeader,rightHeader,leftFooter,centerFooter,rightFooter,tmpfilename,lnColumns,;
  title_fontname,title_fontsize,detail_fontname,detail_fontsize,nRowHeight,lStretch,nOrientation)
 *REPORT FORM (cFilePath)+(reportname) noeject noconsole to print preview
 *ERASE (cFilePath)+(reportname)+'.*'
 *IF nPrint_Columns<lnColumns and IS_PRINT_MOREPAGE=.T.
 *   nPrint_Columns=nPrint_Columns-nLockColumns
 *   LOOP
 *ELSE
 *   EXIT
 *ENDIF
*ENDDO
*USE IN (tmpfilename)  &&关闭报表结构文件

*报表文件名不带扩展名，可缺省(缺省文件名为TMP_REP)
PARAMETERS 报表文件名,报表标题,leftHeader,centerHeader,rightHeader,leftFooter,centerFooter,rightFooter,L_TMP,lnColumns,;
 L_标题字体,L_标题字号,L_表体字体,L_表体字号,L_行高,L_伸展,L_打印方向
PRIVATE ALL LIKE L_*
*WAIT "正在生成报表......" WINDOW AT SYSMETRIC(2)/24-6,SYSMETRIC(1)/12-13 NOWAIT NOCLEAR
IF EMPTY(报表文件名)
   报表文件名='TMP_REP'
ENDIF
IF EMPTY(L_TMP)
   MESSAGEBOX("报表结构文件不能为空！",16,"提示！")
   RETURN
ENDIF
IF !USED((L_TMP))
   MESSAGEBOX("报表结构文件不存在！",16,"提示！")
   RETURN
ENDIF
IF EMPTY(lnColumns)
   MESSAGEBOX("打印列不能为空或0！",16,"提示！")
   RETURN
ENDIF
IF EMPTY(L_标题字体)
   L_标题字体="黑体"
ENDIF
IF EMPTY(L_标题字号)
   L_标题字号=16
ENDIF
IF EMPTY(L_表体字体)
   L_表体字体="宋体"
ENDIF
IF EMPTY(L_表体字号)
   L_表体字号=9
ENDIF
IF EMPTY(L_行高)
   L_行高=2200
ENDIF
IF EMPTY(L_打印方向)
   L_打印方向=0
ENDIF
L_表体_字符宽度=  (1145.833+(L_表体字号-8)*104.167)/2  &&1145.833--字号8的宽度,104.167--字号每增加1的增加值
L_表体_字符宽度粗= (1354.167+(L_表体字号-8)*104.167)/2   &&1354.167--字号8,粗体的宽度
L_表体_字符高度=  1354.167+(L_表体字号-8)*104.167
L_标题_字符宽度粗=  (1354.167+(L_标题字号-8)*104.167)/2
L_标题_字符高度=  1354.167+(L_标题字号-8)*104.167
L_带区指示条高度=2083
L_标题区高度=0
L_页标头区高度=12000
L_细节区高度=L_行高 + (L_表体字号-8)*208.333
L_页脚区高度=5000
L_总结区高度=L_表体_字符高度
L_左边距=5000
L_右边距=0
L_页标头区VPOS=L_标题区高度+IIF(L_标题区高度=0,0,L_带区指示条高度)
L_细节区VPOS=L_标题区高度+L_页标头区高度+IIF(L_标题区高度=0,1,2)*L_带区指示条高度
L_总结区VPOS=L_标题区高度+L_页标头区高度+L_细节区高度+L_页脚区高度+IIF(L_标题区高度=0,3,4)*L_带区指示条高度
L_CA=SELECT()

L_PATH="\"  &&报表文件所在目录
CREATE CURSOR TEMP (TMPFIELD C(10))  &&字段长度在6位以上,小于6时,在VFP9中会出错
CREATE REPORT (L_PATH)+(报表文件名) FROM TEMP
USE IN TEMP
USE (L_PATH)+报表文件名+'.FRX' EXCL IN 0
SELECT (报表文件名)

IF L_标题区高度<>0
   *添加标题区
   INSERT BLANK
   REPLACE PLATFORM WITH 'WINDOWS',OBJTYPE WITH 9,HEIGHT WITH L_标题区高度
ENDIF

*设置左边距
LOCATE FOR OBJTYPE = 1
REPLACE HPOS WITH L_左边距

*设置打印方向
*默认为0-竖向，如果设为1-横向，则修改打印方向
IF L_打印方向=1
 REPLACE EXPR WITH  subs(EXPR, 1, atc("ORIENTATION",EXPR)-1) + "ORIENTATION=1" + chr(10);
  + subs(EXPR,  atc("ORIENTATION",EXPR) + atc(chr(10), subs(expr, atc("ORIENTATION",expr), 15)))
ENDIF

*设置纸张
*REPLACE EXPR WITH  subs(EXPR, 1, atc("PAPERSIZE",EXPR)-1) + "PAPERSIZE=9" + chr(10);
 + subs(EXPR,  atc("PAPERSIZE",EXPR) + atc(chr(10), subs(expr, atc("PAPERSIZE",expr), 15)))

*获取页面宽度
LOCATE FOR EXPR='_PAGENO'
L_页面宽度=HPOS+WIDTH

*增高页标头区
LOCATE FOR OBJTYPE=9 AND OBJCODE=1
REPLACE HEIGHT WITH L_页标头区高度
*增高细节区
LOCATE FOR OBJTYPE=9 AND OBJCODE=4
REPLACE HEIGHT WITH L_细节区高度
*增高页脚区
LOCATE FOR OBJTYPE=9 AND OBJCODE=7
REPLACE HEIGHT WITH L_页脚区高度

*添加总结区
INSERT BLANK
REPLACE PLATFORM WITH 'WINDOWS',OBJTYPE WITH 9,OBJCODE WITH 8,HEIGHT WITH L_总结区高度

*添加列标题标签控件、细节区域控件以及表格线
*拷贝一个标签记录至数组
LOCATE FOR OBJTYPE=5 AND TOP
SCATTER MEMV MEMO

*先保存报表中基于TMPFIELD字段的标签控件和域控件记录，作为生成各列的标题标签控件和细节域控件的依据
LOCATE FOR UPPER(EXPR)=["TMPFIELD"]
SCATTER TO L_列标题记录 MEMO
DELETE
LOCATE FOR UPPER(EXPR)=[TMPFIELD]
SCATTER TO L_列细节记录 MEMO
DELETE
PACK
SELECT (L_TMP)
L_报表宽度=0
L_HPOS=0
L_GAP=400  &&列与纵线之间的间隙
*设置纵线属性
OBJTYPE=6
EXPR=''
WIDTH=208.333  &&左边框为粗线
HEIGHT=L_细节区高度
PENSIZE=2
PENPAT=8
MODE=0

*1.通用型字段不打印
*2.只打印列宽大于1000的列
*3.只打印表格控件中显示的列
*4.每页打印锁定列
*5.对于已打印的列不再打印
SCAN FOR FIELD_TYPE<>'G' AND 列宽>1000 AND RECNO()<=lnColumns AND (锁定列=.T. OR 打印=.F.)
     L_列标题=TRIM(列标题)
     L_列标题宽=LEN(L_列标题)*L_表体_字符宽度粗
     L_列细节=TRIM(FIELD_NAME)
     L_列细节宽=列宽
     L_列宽=列宽
     L_报表宽度=L_报表宽度+WIDTH+2*L_GAP+L_列宽
     L_类型=FIELD_TYPE
     IF L_报表宽度>L_页面宽度-L_左边距-L_右边距
        EXIT
     ENDIF
     SELECT (报表文件名)
     添加纵线()
     L_HPOS=L_HPOS+WIDTH+L_GAP
     L_列标题_HPOS=L_HPOS+IIF(L_列宽-L_列标题宽>0,(L_列宽-L_列标题宽)/2,0)  &&列标题居中
     *添加列标题
     APPEND BLANK
     GATHER FROM L_列标题记录 MEMO
     REPLACE EXPR WITH ["]+L_列标题+["],VPOS WITH L_页标头区VPOS+L_页标头区高度-L_细节区高度*3/4,HPOS WITH L_列标题_HPOS,;
      WIDTH WITH L_列标题宽,HEIGHT WITH L_表体_字符高度,FONTFACE WITH L_表体字体,FONTSIZE WITH L_表体字号
     *添加列细节
     APPEND BLANK
     GATHER FROM L_列细节记录 MEMO
     REPLACE EXPR WITH L_列细节,VPOS WITH L_细节区VPOS+(L_细节区高度-L_表体_字符高度)/2,HPOS WITH L_HPOS,;
      WIDTH WITH L_列细节宽,HEIGHT WITH L_表体_字符高度,FONTFACE WITH L_表体字体,FONTSIZE WITH L_表体字号,;
      FILLCHAR WITH CHRTRAN(L_类型,'YFTBIM','NNDNNC'),PICTURE WITH IIF(L_类型="N",'"@Z"',""),;
      SUPEXPR WITH IIF(INLIST(L_类型,"D","T"),"!EMPTY(&L_列细节)",""),STRETCH WITH IIF(L_类型="T",.F.,L_伸展)
     IF FILLCHAR='N'
        REPLACE OFFSET WITH 1
     ENDIF
     L_HPOS=L_HPOS+L_列宽+L_GAP
     SELECT (L_TMP)
     WIDTH=104.167  &&表中间为细线
     PENSIZE=1
     REPLACE 打印 WITH .T.
     nPrint_Columns=nPrint_Columns+1
ENDSCAN
*USE IN (L_TMP)  &&关闭报表结构文件
SELECT (报表文件名)
WIDTH=208.333  &&右边框为粗线
PENSIZE=2
添加纵线()
L_报表宽度=L_HPOS+WIDTH

*添加横线
HPOS=0
PENSIZE=2  &&页标头区为粗线
HEIGHT=208.333
WIDTH=L_报表宽度
APPEND BLANK
GATHER MEMV MEMO
REPLACE VPOS WITH L_页标头区VPOS+L_页标头区高度-L_细节区高度
APPEND BLANK
GATHER MEMV MEMO
REPLACE VPOS WITH L_页标头区VPOS+L_页标头区高度
PENSIZE=1  &&细节区为细线
HEIGHT=104.167
TOP=.F.
BOTTOM=.T.
APPEND BLANK
GATHER MEMV MEMO
REPLACE VPOS WITH L_细节区VPOS+L_细节区高度
*为了获得粗边框的效果,在总结区添加一条横线
PENSIZE=1
HEIGHT=104.167
TOP=.T.
BOTTOM=.F.
APPEND BLANK
GATHER MEMV MEMO
REPLACE VPOS WITH L_总结区VPOS,SUPEXPR WITH "recno()=reccount()"

*设置标题，页眉
*拷贝一个标签记录至数组
LOCATE FOR OBJTYPE=5 AND TOP
SCATTER MEMV MEMO

IF !EMPTY(报表标题)
    *增加标题
 L_标题宽度=LEN(报表标题)*L_标题_字符宽度粗
 EXPR=["]+报表标题+["]
 VPOS=(L_页标头区高度-L_细节区高度)/3
 HPOS=MAX(0,(L_报表宽度-L_标题宽度)/2)
 WIDTH=L_标题宽度
 HEIGHT=L_标题_字符高度
 FONTSIZE=L_标题字号
 FONTFACE=L_标题字体
 FONTSTYLE=5  &&0-规则 1-粗体 5-下划线，粗体
 APPEND BLANK
 GATHER MEMV MEMO
ENDIF

IF !EMPTY(leftHeader)
    *增加左页眉
 L_标题宽度=LEN(leftHeader)*L_表体_字符宽度
 EXPR=["]+leftHeader+["]
 VPOS=L_页标头区高度-L_细节区高度-L_表体_字符高度
 HPOS=0
 WIDTH=L_标题宽度
 HEIGHT=L_表体_字符高度
 FONTSIZE=L_表体字号
 FONTFACE=L_表体字体
 FONTSTYLE=0
 APPEND BLANK
 GATHER MEMV MEMO
ENDIF

IF !EMPTY(centerHeader)
    *增加中页眉
 L_标题宽度=LEN(centerHeader)*L_表体_字符宽度
 EXPR=["]+centerHeader+["]
 VPOS=L_页标头区高度-L_细节区高度-L_表体_字符高度
 HPOS=MAX(0,(L_报表宽度-L_标题宽度)/2)
 WIDTH=L_标题宽度
 HEIGHT=L_表体_字符高度
 FONTSIZE=L_表体字号
 FONTFACE=L_表体字体
 FONTSTYLE=0
 APPEND BLANK
 GATHER MEMV MEMO
ENDIF

IF !EMPTY(rightHeader)
    *增加右页眉
 L_标题宽度=18*L_表体_字符宽度
 EXPR=rightHeader
 VPOS=L_页标头区高度-L_细节区高度-L_表体_字符高度
 HPOS=MAX(0,L_报表宽度-L_标题宽度)
 WIDTH=L_标题宽度
 HEIGHT=L_表体_字符高度
 FONTSIZE=L_表体字号
 FONTFACE=L_表体字体
 FONTSTYLE=0
 OBJTYPE=8  &&5-标签 6-直线 8-域控件
 APPEND BLANK
 GATHER MEMV MEMO
ENDIF

*在总结区添加页脚
*当最后一页不满页时打印总结区页脚,否则打印页脚区页脚
IF !EMPTY(leftFooter)
 *在总结区添加左页脚
 L_页脚宽度=LEN(leftFooter)*L_表体_字符宽度
 EXPR=["]+leftFooter+["]
 VPOS=L_总结区VPOS+208.333  &&加上横线的高度
 HPOS=0
 WIDTH=L_页脚宽度
 HEIGHT=L_表体_字符高度
 FONTSIZE=L_表体字号
 FONTFACE=L_表体字体
 FONTSTYLE=0
 OBJTYPE=5
 SUPEXPR="recno()=reccount()"
 APPEND BLANK
 GATHER MEMV MEMO
ENDIF

IF !EMPTY(centerFooter)
 *在总结区添加中页脚
 L_页脚宽度=LEN(centerFooter)*L_表体_字符宽度
 EXPR=["]+centerFooter+["]
 VPOS=L_总结区VPOS+208.333
 HPOS=(L_报表宽度-L_页脚宽度)/2
 WIDTH=L_页脚宽度
 HEIGHT=L_表体_字符高度
 FONTSIZE=L_表体字号
 FONTFACE=L_表体字体
 FONTSTYLE=0
 OBJTYPE=5
 SUPEXPR="recno()=reccount()"
 APPEND BLANK
 GATHER MEMV MEMO
ENDIF

IF !EMPTY(rightFooter)
 *在总结区添加右页脚
 L_页脚宽度=LEN(rightFooter)*L_表体_字符宽度
 EXPR=["]+rightFooter+["]
 VPOS=L_总结区VPOS+208.333
 HPOS=L_报表宽度-L_页脚宽度
 WIDTH=L_页脚宽度
 HEIGHT=L_表体_字符高度
 FONTSIZE=L_表体字号
 FONTFACE=L_表体字体
 FONTSTYLE=0
 OBJTYPE=5
 SUPEXPR="recno()=reccount()"
 APPEND BLANK
 GATHER MEMV MEMO
ENDIF

*修改页脚区页脚
*设置左页脚
CALCULATE MAX(HPOS) TO L_MAX FOR OBJTYPE=5 AND TOP
LOCATE FOR HPOS=L_MAX
IF !EMPTY(leftFooter)
   L_页脚宽度=LEN(leftFooter)*L_表体_字符宽度
   REPLACE EXPR WITH ["]+leftFooter+["],VPOS WITH L_细节区VPOS+L_细节区高度+L_带区指示条高度,HPOS WITH 0,;
    WIDTH WITH L_页脚宽度,HEIGHT WITH L_表体_字符高度,OBJTYPE WITH 5,;
    FONTFACE WITH L_表体字体,FONTSIZE WITH L_表体字号,FONTSTYLE WITH 0,;
    SUPEXPR WITH "recno()<>reccount()"
ELSE
   DELETE
   PACK
ENDIF

*设置中页脚
LOCATE FOR EXPR=[_PAGENO] AND TOP
IF !EMPTY(centerFooter)
   L_页脚宽度=LEN(centerFooter)*L_表体_字符宽度
   REPLACE EXPR WITH ["]+centerFooter+["],VPOS WITH L_细节区VPOS+L_细节区高度+L_带区指示条高度,HPOS WITH (L_报表宽度-L_页脚宽度)/2,;
    WIDTH WITH L_页脚宽度,HEIGHT WITH L_表体_字符高度,OBJTYPE WITH 5,;
    FONTFACE WITH L_表体字体,FONTSIZE WITH L_表体字号,FONTSTYLE WITH 0,;
    SUPEXPR WITH "recno()<>reccount()"
ELSE
   DELETE
   PACK
ENDIF

*设置右页脚
LOCATE FOR EXPR=[DATE()] AND TOP
IF !EMPTY(rightFooter)
   L_页脚宽度=LEN(rightFooter)*L_表体_字符宽度
   REPLACE EXPR WITH ["]+rightFooter+["],VPOS WITH L_细节区VPOS+L_细节区高度+L_带区指示条高度,HPOS WITH L_报表宽度-L_页脚宽度,;
    WIDTH WITH L_页脚宽度,HEIGHT WITH L_表体_字符高度,OBJTYPE WITH 5,;
    FONTFACE WITH L_表体字体,FONTSIZE WITH L_表体字号,FONTSTYLE WITH 0,;
    SUPEXPR WITH "recno()<>reccount()"
ELSE
   DELETE
   PACK
ENDIF

USE IN (报表文件名)
SELECT (L_CA)
WAIT CLEAR
RETURN

PROCEDURE 添加纵线
APPEND BLANK
GATHER MEMV MEMO
REPLACE VPOS WITH L_页标头区VPOS+L_页标头区高度-L_细节区高度,HPOS WITH L_HPOS
APPEND BLANK
GATHER MEMV MEMO
REPLACE VPOS WITH L_细节区VPOS,HPOS WITH L_HPOS,STRETCH WITH .T.
RETURN

现有表文件jsrkb20181001.dbf和动态生成报表文件MYREPORT2018.PRG,运行下列语句出错，提示“报表结构文件不能为空！”，如何修改或操作请高手赐教，万分感谢！
use jsrkb20181001
 MYREPORT2018('班级学科任课教师','2018年秋学期各班任课教师一览表')
[local]1[/local]

MYREPORT2018.PRG程序如下：
*调用方法：MYREPORT2006([<报表文件名>],[<报表标题>],[<左页眉>],[<中页眉>],[<右页眉>],[<左页脚>],[<中页脚>],[<右页脚>],;
*<报表结构文件名>,<报表打印列数>[,表头字体][,表头字号][,表体字体][,表体字号][,行高][,是否伸展][,打印方向])
*使用举例：
*报表文件放在"C:\TEMP"目录下
*cFilePath="C:\TEMP\"
*IF !DIRECTORY((cFilePath))
*   MD (cFilePath)
*ENDIF
*定义标题，页眉，页脚
*reportname='MYREPORT'  &&报表文件名
*titlename='我的动态报表'  &&报表标题
*leftHeader="编制单位："
*centerHeader="日期："+DTOC(DATE())+"至"+DTOC(date())
*rightHeader='"共 "+ALLTRIM(STR(_PAGETOTAL))+" 页 第 "+ALLTRIM(STR(_PAGENO))+" 页"'
*leftFooter="制表人："
*centerFooter="复核人："
*rightFooter="打印日期："+TTOC(DATETIME())
*tmpfilename=SYS(2015)  &&报表结构文件名(随机值)
*lnColumns=thisform.grid1.ColumnCount  &&打印列数
*nLockColumns=thisform.grid1.LockColumns &&锁定列数
*title_f  &&几种可选字体，'黑体'，'宋体'，'楷体_GB2312'，'隶书'
*title_fontsize=16
*detail_f
*detail_fontsize=9
*nRowHeight=1800   &&行高，默认值--2200
*lStretch=.F.   &&溢出时是否伸展,默认值.F.,不伸展
*nOrientation=0   &&打印方向(0-竖向,1-横向)，默认为0-竖向
*IS_PRINT_MOREPAGE=.F.  &&是否打印多页

*SELECT * FROM MYTABLE INTO CURSOR TMP_RPT
*SELECT TMP_RPT
*tempfilename=SYS(2015)
*COPY STRUCTURE TO (cFilePath)+(tempfilename) EXTENDED
*SELECT *,space(128) as 列标题,CAST(0 as numeric(10)) as 列宽,.F. as 锁定列,.F. as 打印;
 FROM (cFilePath)+(tempfilename);
 INTO CURSOR (tmpfilename) READWRITE
*USE IN (tempfilename)
*ERASE (cFilePath)+(tempfilename)+'.*'
*SELECT (tmpfilename)
*N=1
*SCAN
*   lcFiledName=IIF(n<=lnColumns,THISFORM.GRID1.COLUMNS(N).HEADER1.CAPTION,FIELD_NAME)
*   lnWidth=IIF(n<=lnColumns,THISFORM.GRID1.COLUMNS(N).WIDTH*100,7500)
*   isLock=IIF(n<=nLockColumns,.T.,.F.)
*   REPLACE 列标题 WITH lcFiledName,列宽 WITH lnWidth,锁定列 WITH isLock
*   N=N+1
*ENDSCAN
*COUNT TO nHideColumns FOR 列宽<=1000  &&隐藏的列数

*PUBLIC nPrint_Columns
*nPrint_Columns=nHideColumns  &&已打印的列数
*DO WHILE .T.
 *SELECT TMP_RPT
 *MYREPORT2006(reportname,titlename,leftHeader,centerHeader,rightHeader,leftFooter,centerFooter,rightFooter,tmpfilename,lnColumns,;
  title_fontname,title_fontsize,detail_fontname,detail_fontsize,nRowHeight,lStretch,nOrientation)
 *REPORT FORM (cFilePath)+(reportname) noeject noconsole to print preview
 *ERASE (cFilePath)+(reportname)+'.*'
 *IF nPrint_Columns<lnColumns and IS_PRINT_MOREPAGE=.T.
 *   nPrint_Columns=nPrint_Columns-nLockColumns
 *   LOOP
 *ELSE
 *   EXIT
 *ENDIF
*ENDDO
*USE IN (tmpfilename)  &&关闭报表结构文件

*报表文件名不带扩展名，可缺省(缺省文件名为TMP_REP)
PARAMETERS 报表文件名,报表标题,leftHeader,centerHeader,rightHeader,leftFooter,centerFooter,rightFooter,L_TMP,lnColumns,;
 L_标题字体,L_标题字号,L_表体字体,L_表体字号,L_行高,L_伸展,L_打印方向
PRIVATE ALL LIKE L_*
*WAIT "正在生成报表......" WINDOW AT SYSMETRIC(2)/24-6,SYSMETRIC(1)/12-13 NOWAIT NOCLEAR
IF EMPTY(报表文件名)
   报表文件名='TMP_REP'
ENDIF
IF EMPTY(L_TMP)
   MESSAGEBOX("报表结构文件不能为空！",16,"提示！")
   RETURN
ENDIF
IF !USED((L_TMP))
   MESSAGEBOX("报表结构文件不存在！",16,"提示！")
   RETURN
ENDIF
IF EMPTY(lnColumns)
   MESSAGEBOX("打印列不能为空或0！",16,"提示！")
   RETURN
ENDIF
IF EMPTY(L_标题字体)
   L_标题字体="黑体"
ENDIF
IF EMPTY(L_标题字号)
   L_标题字号=16
ENDIF
IF EMPTY(L_表体字体)
   L_表体字体="宋体"
ENDIF
IF EMPTY(L_表体字号)
   L_表体字号=9
ENDIF
IF EMPTY(L_行高)
   L_行高=2200
ENDIF
IF EMPTY(L_打印方向)
   L_打印方向=0
ENDIF
L_表体_字符宽度=  (1145.833+(L_表体字号-8)*104.167)/2  &&1145.833--字号8的宽度,104.167--字号每增加1的增加值
L_表体_字符宽度粗= (1354.167+(L_表体字号-8)*104.167)/2   &&1354.167--字号8,粗体的宽度
L_表体_字符高度=  1354.167+(L_表体字号-8)*104.167
L_标题_字符宽度粗=  (1354.167+(L_标题字号-8)*104.167)/2
L_标题_字符高度=  1354.167+(L_标题字号-8)*104.167
L_带区指示条高度=2083
L_标题区高度=0
L_页标头区高度=12000
L_细节区高度=L_行高 + (L_表体字号-8)*208.333
L_页脚区高度=5000
L_总结区高度=L_表体_字符高度
L_左边距=5000
L_右边距=0
L_页标头区VPOS=L_标题区高度+IIF(L_标题区高度=0,0,L_带区指示条高度)
L_细节区VPOS=L_标题区高度+L_页标头区高度+IIF(L_标题区高度=0,1,2)*L_带区指示条高度
L_总结区VPOS=L_标题区高度+L_页标头区高度+L_细节区高度+L_页脚区高度+IIF(L_标题区高度=0,3,4)*L_带区指示条高度
L_CA=SELECT()

L_PATH="\"  &&报表文件所在目录
CREATE CURSOR TEMP (TMPFIELD C(10))  &&字段长度在6位以上,小于6时,在VFP9中会出错
CREATE REPORT (L_PATH)+(报表文件名) FROM TEMP
USE IN TEMP
USE (L_PATH)+报表文件名+'.FRX' EXCL IN 0
SELECT (报表文件名)

IF L_标题区高度<>0
   *添加标题区
   INSERT BLANK
   REPLACE PLATFORM WITH 'WINDOWS',OBJTYPE WITH 9,HEIGHT WITH L_标题区高度
ENDIF

*设置左边距
LOCATE FOR OBJTYPE = 1
REPLACE HPOS WITH L_左边距

*设置打印方向
*默认为0-竖向，如果设为1-横向，则修改打印方向
IF L_打印方向=1
 REPLACE EXPR WITH  subs(EXPR, 1, atc("ORIENTATION",EXPR)-1) + "ORIENTATION=1" + chr(10);
  + subs(EXPR,  atc("ORIENTATION",EXPR) + atc(chr(10), subs(expr, atc("ORIENTATION",expr), 15)))
ENDIF

*设置纸张
*REPLACE EXPR WITH  subs(EXPR, 1, atc("PAPERSIZE",EXPR)-1) + "PAPERSIZE=9" + chr(10);
 + subs(EXPR,  atc("PAPERSIZE",EXPR) + atc(chr(10), subs(expr, atc("PAPERSIZE",expr), 15)))

*获取页面宽度
LOCATE FOR EXPR='_PAGENO'
L_页面宽度=HPOS+WIDTH

*增高页标头区
LOCATE FOR OBJTYPE=9 AND OBJCODE=1
REPLACE HEIGHT WITH L_页标头区高度
*增高细节区
LOCATE FOR OBJTYPE=9 AND OBJCODE=4
REPLACE HEIGHT WITH L_细节区高度
*增高页脚区
LOCATE FOR OBJTYPE=9 AND OBJCODE=7
REPLACE HEIGHT WITH L_页脚区高度

*添加总结区
INSERT BLANK
REPLACE PLATFORM WITH 'WINDOWS',OBJTYPE WITH 9,OBJCODE WITH 8,HEIGHT WITH L_总结区高度

*添加列标题标签控件、细节区域控件以及表格线
*拷贝一个标签记录至数组
LOCATE FOR OBJTYPE=5 AND TOP
SCATTER MEMV MEMO

*先保存报表中基于TMPFIELD字段的标签控件和域控件记录，作为生成各列的标题标签控件和细节域控件的依据
LOCATE FOR UPPER(EXPR)=["TMPFIELD"]
SCATTER TO L_列标题记录 MEMO
DELETE
LOCATE FOR UPPER(EXPR)=[TMPFIELD]
SCATTER TO L_列细节记录 MEMO
DELETE
PACK
SELECT (L_TMP)
L_报表宽度=0
L_HPOS=0
L_GAP=400  &&列与纵线之间的间隙
*设置纵线属性
OBJTYPE=6
EXPR=''
WIDTH=208.333  &&左边框为粗线
HEIGHT=L_细节区高度
PENSIZE=2
PENPAT=8
MODE=0

*1.通用型字段不打印
*2.只打印列宽大于1000的列
*3.只打印表格控件中显示的列
*4.每页打印锁定列
*5.对于已打印的列不再打印
SCAN FOR FIELD_TYPE<>'G' AND 列宽>1000 AND RECNO()<=lnColumns AND (锁定列=.T. OR 打印=.F.)
     L_列标题=TRIM(列标题)
     L_列标题宽=LEN(L_列标题)*L_表体_字符宽度粗
     L_列细节=TRIM(FIELD_NAME)
     L_列细节宽=列宽
     L_列宽=列宽
     L_报表宽度=L_报表宽度+WIDTH+2*L_GAP+L_列宽
     L_类型=FIELD_TYPE
     IF L_报表宽度>L_页面宽度-L_左边距-L_右边距
        EXIT
     ENDIF
     SELECT (报表文件名)
     添加纵线()
     L_HPOS=L_HPOS+WIDTH+L_GAP
     L_列标题_HPOS=L_HPOS+IIF(L_列宽-L_列标题宽>0,(L_列宽-L_列标题宽)/2,0)  &&列标题居中
     *添加列标题
     APPEND BLANK
     GATHER FROM L_列标题记录 MEMO
     REPLACE EXPR WITH ["]+L_列标题+["],VPOS WITH L_页标头区VPOS+L_页标头区高度-L_细节区高度*3/4,HPOS WITH L_列标题_HPOS,;
      WIDTH WITH L_列标题宽,HEIGHT WITH L_表体_字符高度,FONTFACE WITH L_表体字体,FONTSIZE WITH L_表体字号
     *添加列细节
     APPEND BLANK
     GATHER FROM L_列细节记录 MEMO
     REPLACE EXPR WITH L_列细节,VPOS WITH L_细节区VPOS+(L_细节区高度-L_表体_字符高度)/2,HPOS WITH L_HPOS,;
      WIDTH WITH L_列细节宽,HEIGHT WITH L_表体_字符高度,FONTFACE WITH L_表体字体,FONTSIZE WITH L_表体字号,;
      FILLCHAR WITH CHRTRAN(L_类型,'YFTBIM','NNDNNC'),PICTURE WITH IIF(L_类型="N",'"@Z"',""),;
      SUPEXPR WITH IIF(INLIST(L_类型,"D","T"),"!EMPTY(&L_列细节)",""),STRETCH WITH IIF(L_类型="T",.F.,L_伸展)
     IF FILLCHAR='N'
        REPLACE OFFSET WITH 1
     ENDIF
     L_HPOS=L_HPOS+L_列宽+L_GAP
     SELECT (L_TMP)
     WIDTH=104.167  &&表中间为细线
     PENSIZE=1
     REPLACE 打印 WITH .T.
     nPrint_Columns=nPrint_Columns+1
ENDSCAN
*USE IN (L_TMP)  &&关闭报表结构文件
SELECT (报表文件名)
WIDTH=208.333  &&右边框为粗线
PENSIZE=2
添加纵线()
L_报表宽度=L_HPOS+WIDTH

*添加横线
HPOS=0
PENSIZE=2  &&页标头区为粗线
HEIGHT=208.333
WIDTH=L_报表宽度
APPEND BLANK
GATHER MEMV MEMO
REPLACE VPOS WITH L_页标头区VPOS+L_页标头区高度-L_细节区高度
APPEND BLANK
GATHER MEMV MEMO
REPLACE VPOS WITH L_页标头区VPOS+L_页标头区高度
PENSIZE=1  &&细节区为细线
HEIGHT=104.167
TOP=.F.
BOTTOM=.T.
APPEND BLANK
GATHER MEMV MEMO
REPLACE VPOS WITH L_细节区VPOS+L_细节区高度
*为了获得粗边框的效果,在总结区添加一条横线
PENSIZE=1
HEIGHT=104.167
TOP=.T.
BOTTOM=.F.
APPEND BLANK
GATHER MEMV MEMO
REPLACE VPOS WITH L_总结区VPOS,SUPEXPR WITH "recno()=reccount()"

*设置标题，页眉
*拷贝一个标签记录至数组
LOCATE FOR OBJTYPE=5 AND TOP
SCATTER MEMV MEMO

IF !EMPTY(报表标题)
    *增加标题
 L_标题宽度=LEN(报表标题)*L_标题_字符宽度粗
 EXPR=["]+报表标题+["]
 VPOS=(L_页标头区高度-L_细节区高度)/3
 HPOS=MAX(0,(L_报表宽度-L_标题宽度)/2)
 WIDTH=L_标题宽度
 HEIGHT=L_标题_字符高度
 FONTSIZE=L_标题字号
 FONTFACE=L_标题字体
 FONTSTYLE=5  &&0-规则 1-粗体 5-下划线，粗体
 APPEND BLANK
 GATHER MEMV MEMO
ENDIF

IF !EMPTY(leftHeader)
    *增加左页眉
 L_标题宽度=LEN(leftHeader)*L_表体_字符宽度
 EXPR=["]+leftHeader+["]
 VPOS=L_页标头区高度-L_细节区高度-L_表体_字符高度
 HPOS=0
 WIDTH=L_标题宽度
 HEIGHT=L_表体_字符高度
 FONTSIZE=L_表体字号
 FONTFACE=L_表体字体
 FONTSTYLE=0
 APPEND BLANK
 GATHER MEMV MEMO
ENDIF

IF !EMPTY(centerHeader)
    *增加中页眉
 L_标题宽度=LEN(centerHeader)*L_表体_字符宽度
 EXPR=["]+centerHeader+["]
 VPOS=L_页标头区高度-L_细节区高度-L_表体_字符高度
 HPOS=MAX(0,(L_报表宽度-L_标题宽度)/2)
 WIDTH=L_标题宽度
 HEIGHT=L_表体_字符高度
 FONTSIZE=L_表体字号
 FONTFACE=L_表体字体
 FONTSTYLE=0
 APPEND BLANK
 GATHER MEMV MEMO
ENDIF

IF !EMPTY(rightHeader)
    *增加右页眉
 L_标题宽度=18*L_表体_字符宽度
 EXPR=rightHeader
 VPOS=L_页标头区高度-L_细节区高度-L_表体_字符高度
 HPOS=MAX(0,L_报表宽度-L_标题宽度)
 WIDTH=L_标题宽度
 HEIGHT=L_表体_字符高度
 FONTSIZE=L_表体字号
 FONTFACE=L_表体字体
 FONTSTYLE=0
 OBJTYPE=8  &&5-标签 6-直线 8-域控件
 APPEND BLANK
 GATHER MEMV MEMO
ENDIF

*在总结区添加页脚
*当最后一页不满页时打印总结区页脚,否则打印页脚区页脚
IF !EMPTY(leftFooter)
 *在总结区添加左页脚
 L_页脚宽度=LEN(leftFooter)*L_表体_字符宽度
 EXPR=["]+leftFooter+["]
 VPOS=L_总结区VPOS+208.333  &&加上横线的高度
 HPOS=0
 WIDTH=L_页脚宽度
 HEIGHT=L_表体_字符高度
 FONTSIZE=L_表体字号
 FONTFACE=L_表体字体
 FONTSTYLE=0
 OBJTYPE=5
 SUPEXPR="recno()=reccount()"
 APPEND BLANK
 GATHER MEMV MEMO
ENDIF

IF !EMPTY(centerFooter)
 *在总结区添加中页脚
 L_页脚宽度=LEN(centerFooter)*L_表体_字符宽度
 EXPR=["]+centerFooter+["]
 VPOS=L_总结区VPOS+208.333
 HPOS=(L_报表宽度-L_页脚宽度)/2
 WIDTH=L_页脚宽度
 HEIGHT=L_表体_字符高度
 FONTSIZE=L_表体字号
 FONTFACE=L_表体字体
 FONTSTYLE=0
 OBJTYPE=5
 SUPEXPR="recno()=reccount()"
 APPEND BLANK
 GATHER MEMV MEMO
ENDIF

IF !EMPTY(rightFooter)
 *在总结区添加右页脚
 L_页脚宽度=LEN(rightFooter)*L_表体_字符宽度
 EXPR=["]+rightFooter+["]
 VPOS=L_总结区VPOS+208.333
 HPOS=L_报表宽度-L_页脚宽度
 WIDTH=L_页脚宽度
 HEIGHT=L_表体_字符高度
 FONTSIZE=L_表体字号
 FONTFACE=L_表体字体
 FONTSTYLE=0
 OBJTYPE=5
 SUPEXPR="recno()=reccount()"
 APPEND BLANK
 GATHER MEMV MEMO
ENDIF

*修改页脚区页脚
*设置左页脚
CALCULATE MAX(HPOS) TO L_MAX FOR OBJTYPE=5 AND TOP
LOCATE FOR HPOS=L_MAX
IF !EMPTY(leftFooter)
   L_页脚宽度=LEN(leftFooter)*L_表体_字符宽度
   REPLACE EXPR WITH ["]+leftFooter+["],VPOS WITH L_细节区VPOS+L_细节区高度+L_带区指示条高度,HPOS WITH 0,;
    WIDTH WITH L_页脚宽度,HEIGHT WITH L_表体_字符高度,OBJTYPE WITH 5,;
    FONTFACE WITH L_表体字体,FONTSIZE WITH L_表体字号,FONTSTYLE WITH 0,;
    SUPEXPR WITH "recno()<>reccount()"
ELSE
   DELETE
   PACK
ENDIF

*设置中页脚
LOCATE FOR EXPR=[_PAGENO] AND TOP
IF !EMPTY(centerFooter)
   L_页脚宽度=LEN(centerFooter)*L_表体_字符宽度
   REPLACE EXPR WITH ["]+centerFooter+["],VPOS WITH L_细节区VPOS+L_细节区高度+L_带区指示条高度,HPOS WITH (L_报表宽度-L_页脚宽度)/2,;
    WIDTH WITH L_页脚宽度,HEIGHT WITH L_表体_字符高度,OBJTYPE WITH 5,;
    FONTFACE WITH L_表体字体,FONTSIZE WITH L_表体字号,FONTSTYLE WITH 0,;
    SUPEXPR WITH "recno()<>reccount()"
ELSE
   DELETE
   PACK
ENDIF

*设置右页脚
LOCATE FOR EXPR=[DATE()] AND TOP
IF !EMPTY(rightFooter)
   L_页脚宽度=LEN(rightFooter)*L_表体_字符宽度
   REPLACE EXPR WITH ["]+rightFooter+["],VPOS WITH L_细节区VPOS+L_细节区高度+L_带区指示条高度,HPOS WITH L_报表宽度-L_页脚宽度,;
    WIDTH WITH L_页脚宽度,HEIGHT WITH L_表体_字符高度,OBJTYPE WITH 5,;
    FONTFACE WITH L_表体字体,FONTSIZE WITH L_表体字号,FONTSTYLE WITH 0,;
    SUPEXPR WITH "recno()<>reccount()"
ELSE
   DELETE
   PACK
ENDIF

USE IN (报表文件名)
SELECT (L_CA)
WAIT CLEAR
RETURN

PROCEDURE 添加纵线
APPEND BLANK
GATHER MEMV MEMO
REPLACE VPOS WITH L_页标头区VPOS+L_页标头区高度-L_细节区高度,HPOS WITH L_HPOS
APPEND BLANK
GATHER MEMV MEMO
REPLACE VPOS WITH L_细节区VPOS,HPOS WITH L_HPOS,STRETCH WITH .T.
RETURN