* reportfix.prg 05-Dec-97
* Takeout the Printer specific information from a report file
lparameter lcFile
if ( pcount() < 1 )
lcFile = getfile( "frx" )
if ( empty( lcFile ) )
return
endif
endif
i = at( '.', lcFile )
if ( i > 0 )
lcFile = left( lcFile, i-1 )
endif
lcFile = lcFile + ".frx"
use (lcFile)
replace Expr with DePrinter( Expr ), Tag with "", Tag2 with ""
use
function DePrinter( lcExpr )
local lcLine, lcRetVal
lcRetVal = ""
for i = 1 to memlines( lcExpr )
lcLine = mline( lcExpr, i )
do case
case "DEVICE=" $ lcLine
* strip it
case "PRINTQUALITY=" $ lcLine
* strip it
case "YRESOLUTION=" $ lcLine
* strip it
otherwise
lcRetVal = lcRetVal + lcLine + chr(13) + chr(10)
endcase
endfor
return lcRetVal