Click Method
Object:frmbehindsc.cmdPrint
Expand/Collapse source code of procedure cmdPrint.Click Source Code
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 behindsc NEXT 1 TO PRINTER NOCONSOLE
  ELSE
    =MESSAGEBOX(PRINTERNOTREADY_LOC, MB_ICONEXCLAMATION)
  ENDIF
  WAIT CLEAR
  thisform.WaitMode(.F.)
*-ENDIF