Click Method
Object:frmViewCode.cmdPrint
Expand/Collapse source code of procedure cmdPrint.Click Source Code
LOCAL lnAnswer
lnAnswer = MESSAGEBOX(VIEWCODEPRINT_LOC, ;
                      MB_ICONQUESTION + MB_YESNO, ;
                      TASTRADE_LOC)
IF lnAnswer = IDYES
  thisform.WaitMode(.T.)
  IF PRINTSTATUS()
    WAIT WINDOW NOWAIT PRINTING_LOC
    REPORT FORM viewcode TO PRINTER NOCONSOLE
  ELSE
    =MESSAGEBOX(PRINTERNOTREADY_LOC, MB_ICONEXCLAMATION)
  ENDIF
  WAIT CLEAR
  thisform.WaitMode(.F.)
ENDIF