LOCAL;
 lcPrinter   AS CHARACTER,;
 llError     AS BOOLEAN,;
 loException AS EXCEPTION

TRY
  IF VAL(OS(3))*100+VAL(OS(4))>=600 THEN
   lcPrinter = GETPRINTER()
   IF !EMPTY(lcPrinter) THEN
    SET PRINTER TO NAME (lcPrinter)
    =SYS(1037)
   ENDIF &&!EMPTY(lcPrinter)
  ELSE &&Val(Os(3))*100+Val(Os(4))>=600
   =SYS(1037)
  ENDIF &&Val(Os(3))*100+Val(Os(4))>=600
 CATCH TO loException WHEN loException.ERRORNO=125
* no printer found
  llError = True
 CATCH TO loException
* other error, add your handler
ENDTRY