Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Clearing Tag, Tag2 in .frx , but retaining Landscap/Port
Message
 
To
18/04/2001 13:16:06
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Miscellaneous
Thread ID:
00496784
Message ID:
00496830
Views:
18
Tom:

To build on what I said and what Nick said, I have a program that I run that "fixes" all the FRX's in my project before it builds an EXE. The only special things I need in my reports are the possibility of Legal-Size paper and/or Landscape orientation. My program opens each FRX and does the following:
use (ReportFile) exclusive
locate for objtype=1 and objcode=53
if not eof()
  if not empty(tag) or not empty(tag2) or not empty(expr) 
    newexpr=""
    if "PAPERSIZE=5"$expr
      newexpr=newexpr+iif(empty(newexpr),"",chr(13)+chr(10))+"PAPERSIZE=5"
    endif
    if "ORIENTATION=1"$expr
      newexpr=newexpr+iif(empty(newexpr),"",chr(13)+chr(10))+"ORIENTATION=1"
    endif
    replace tag with "", tag2 with "", expr with newexpr
  endif
endif
Hope this helps...

--Brad
Previous
Reply
Map
View

Click here to load this message in the networking platform