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