还请各位仁兄指点一二，我的程序执行后   不立即打印，只有退出vfp有 才打印 这是什么原因呢
程序如下
SET TALK OFF
SET SAFE OFF
CLOSE DATA
SET TALK OFF
USE HJ
SUM SHF,FDGZ,GLGZ,clgz,JBF,ZYC,FLF,CB,DZF,SBF,JIBGZ,fj TO SHF1,FDGZ1,GLGZ1,clgz1,JBF1,ZYC1,FLF1,CB1,DZF1,SBF1,JIBGZ1,fj1 FOR XZ='1'.OR.XZ='2'.OR.XZ='3'
SUM CX,BSJ,BXJ,FZSD,YYF,SFGZ TO CX1,BSJ1,BXJ1,FZSD1,YYF1,SFGZ1 FOR XZ='1'.OR.XZ='2'.OR.XZ='3'
SUM YLJ,BJF,HD3,HD4,HD5 TO YLJ1,BJF1,HD31,HD41,HD51 FOR XZ='1'.OR.XZ='2'.OR.XZ='3'
sum hd7,hd8,LC to hd71,hd81,LC1 FOR XZ='1'.OR.XZ='2'.OR.XZ='3'
SET CONS OFF
SET DEVICE TO PRINT
SET PRINT ON
SET PRINTER FONT '宋体', 15  &&字符集可用AFONT() 显示
?'               山  东  股  份  有  限  公  司  合  计'
?'     发   放   项  : '
?'     生 活 费:'+str(SHF1,10,2)+'        岗位工资:'+str(FDGZ1,10,2)+'        年功工资:'+str(GLGZ1,10,2)
?'     福 利 费:'+str(FLF1,10,2)+'        交通通讯:'+str(CB1,10,2) +'        中 夜 餐:'+str(ZYC1,10,2)
?'     独 子 费:'+str(DZF1,10,2)+'        书 报 费:'+str(SBF1,10,2)+'        加 班 费:'+str(JBF1,10,2)
?'     补    贴:'+STR(HD51,10,2)+'        保 健 费:'+STR(BJF1,10,2)+'        级别工资:'+str(JIBGZ1,10,2)
?'     年    补:'+str(clgz1,10,2)+'        取 暖 费:'+str(fj1,10,2)
USE HD
INDEX ON HD1M TO HD1
SET INDEX TO HD1
TOTAL ON HD1M FIELDS HD1 TO HD1 FOR XZ='1'.OR.XZ='2'.OR.XZ='3'
USE HD1
?
DO WHILE .NOT.EOF()
  IF HD1<>0
    ?'     '+TRIM(HD1M)+':'+STR(HD1,10,2)+''&& 附加 ？
  ENDIF
  SKIP
ENDDO
?'     应  发  工  资:  '+str(hd81,10,2) &&自动计算
?'     扣   款   项  :'
?'     房租水电:'+str(FZSD1,10,2)+'        病 事 假:'+str(BSJ1,10,2)+'        新 工 险:'+STR(YYF1,10,2)
?'     养老保险:'+STR(YLJ1,10,2) +'        失 业 金:'+STR(BXJ1,10,2)+'        医    保:'+STR(HD31,10,2)
?'     个    税:'+str(hd71,10,2)

USE HD
INDEX ON HD2M TO HD2
SET INDEX TO HD2
TOTAL ON HD2M FIELDS HD2 TO HD2 FOR XZ='1'.OR.XZ='2'.OR.XZ='3'
USE HD2
DO WHILE .NOT.EOF()
  IF HD2<>0
    ??'        '+TRIM(HD2M)+':'+STR(HD2,10,2) &&+''
  ENDIF
  SKIP
ENDDO
? '     实  发  工  资:'+str(SFGZ1,12,2)
set print off
SET DEVICE TO SCREEN
eject
set cons on
RETURN
text