为什么我的打印程序 运行后只有退出vfp才能执行打印呢
还请各位仁兄指点一二,我的程序执行后 不立即打印,只有退出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