Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Just blank out tag, tag2 & expr field in rec.1 of .frx ?
Message
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00170131
Message ID:
00170148
Views:
16
Mark,

I've done this with some success. The only thing I make sure to do is not change the orientation by blanking out Expr completely. Here's the code I use. It assumes the current directory is where the report and/or label files are.
SET MEMOWIDTH TO 1024

DIMENSION aFileType[2]
aFileType[1]='*.FRX'
aFileType[2]='*.LBX'

FOR EACH cFileType IN aFileType

  nNumReps=ADIR(aReps,m.cFileType)

  FOR i=1 TO nNumReps
    USE (aReps[i,1])
    LOCATE FOR ObjType=1
    IF FOUND()
      REPLACE Tag2 WITH ''
      m.cExpr=Expr
      FOR j=1 TO MEMLINES(m.cExpr)
        m.cLine=MLINE(m.cExpr,j)
        IF m.cLine='ORIENTATION'
          EXIT
        ENDIF
      NEXT
      REPLACE Expr WITH IIF(m.cLine='ORIENTATION',m.cLine,'')
    ENDIF
  NEXT
ENDFOR
>Hi ,
>I'm creating reports using the VFP report designer & just before I send a new report to my clients I intend to open the report's .frx file, go to record 1 & replace tag, tag2 & expr with "". Is this all I need to do to ensure the report will run properly on different printers. This sounds almost too easy to me. Does anyone know of any problems with this approach?
Previous
Reply
Map
View

Click here to load this message in the networking platform