printda.prg

来自「红狐VFP6通讯录V3.3,大家看看,可能会有帮助,好了」· PRG 代码 · 共 34 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: PRINTDA.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 SET MESSAGE TO '打印档案...'
 CN = ALLTRIM(STR(SELECT()))
  sele &cn
 IF EOF() .OR. BOF()
     MESSAGEBOX('请重新浏览或查询数据！',16,'打印档案')
    RETURN 
 ENDIF 
 CXM = ALLTRIM(XM)
 ANS = MESSAGEBOX('要打印名为“' + CXM + '”的档案信息吗？',36,'打印档案')
 IF ANS = 7
    RETURN 
 ENDIF 
 NID = TXL_ID
 SELECT * WHERE TXL_ID = NID INTO CURSOR temp_print FROM txl
 SELECT TEMP_PRINT
 DO CASE 
 CASE ISPRINTCONFIG = .F. AND ISPRINTPREVIEW = .F.
    REPORT FORM txl NOEJECT TO PRINTER NOCONSOLE
 CASE ISPRINTCONFIG = .F. AND ISPRINTPREVIEW = .T.
    DO REPORTPREVIEW WITH 'txl' , CXM + ' 的档案'
 CASE ISPRINTCONFIG = .T. AND ISPRINTPREVIEW = .F.
    REPORT FORM txl NOEJECT TO PRINTER PROMPT NOCONSOLE
 CASE ISPRINTCONFIG = .T. AND ISPRINTPREVIEW = .T.
    REPORT FORM txl PREVIEW NOEJECT TO PRINTER PROMPT NOCONSOLE NOWAIT
 ENDCASE 
  sele &cn
 SET MESSAGE TO '打印完毕'
*