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