>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 >