set defa to reports
=adir(xRep,'*.frx')
for x= 1 to alen(xRep,1)
xFN=xRep(x,1)
wait xFN window nowait
use (xFN)
go top
xM= 'PRINTQUALITY=300'+chr(13)+'YRESOLUTION=300'+chr(13)
do case
*!* case xFN= "AGENTSCHEDULE"
*!* Xm=XM+"ORIENTATION=1"+chr(13)
OTHERWISE
XM= Xm+"ORIENTATION=0"+chr(13)
ENDCASE
*!* if upper(xFN)= "TRUCKRECEIPT"
*!* xM= xM+"COPIES=2"+chr(13)
*!* endif
replace expr with xM,tag with '', tag2 with ''
next
set defa to ..
Joseph,
How about doing it programmatically before you recompile the project :)?
set defa to reports
=adir(xRep,'*.frx')
for x= 1 to alen(xRep,1)
xFN=xRep(x,1)
wait xFN window nowait
use (xFN)
go top
xM= 'PRINTQUALITY=300'+chr(13)+'YRESOLUTION=300'+chr(13)
do case
*!* case xFN= "AGENTSCHEDULE"
*!* Xm=XM+"ORIENTATION=1"+chr(13)
OTHERWISE
XM= Xm+"ORIENTATION=0"+chr(13)
ENDCASE
*!* if upper(xFN)= "TRUCKRECEIPT"
*!* xM= xM+"COPIES=2"+chr(13)
*!* endif
replace expr with xM,tag with '', tag2 with ''
next
set defa to ..
If things have the tendency to go your way, do not worry. It won't last. Jules Renard.