Object: | frmcasestudy.cmdPrint |
LOCAL lnAnswer lnAnswer = MESSAGEBOX(VIEWCSDTYPRINT_LOC, ; MB_ICONQUESTION + MB_YESNO, ; TASTRADE_LOC) IF lnAnswer = IDYES thisform.WaitMode(.T.) IF PRINTSTATUS() WAIT WINDOW NOWAIT PRINTING_LOC REPORT FORM casestdy TO PRINTER NOCONSOLE ELSE =MESSAGEBOX(PRINTERNOTREADY_LOC, MB_ICONEXCLAMATION) ENDIF WAIT CLEAR thisform.WaitMode(.F.) ENDIF