*Function SetPrinter3() LOCAL LcCursorName, lcReportName, lnLine, lcPrinterName, lcStr LcCursorName = Sys(2015) lcReportName = Sys(2015) CREATE CURSOR (lcCursorName) ( temp C(1)) CREATE REPORT (lcReportName ) FROM (lcCursorName ) USE (lcReportName + ".FRX") lnLine = Atline("DEVICE=", Expr) lcStr = Mline(Expr, lnLine) lcPrinterName = Substr( lcStr, At("=", lcStr )+1) USE IN (lcReportName) ERASE (lcReportName + ".FRX") ERASE (lcReportName + ".FRT") RETURN UPPER(lcPrinterName)