Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Just blank out tag, tag2 & expr field in rec.1 of .frx ?
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Divers
Thread ID:
00170131
Message ID:
00170148
Vues:
17
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?
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform