Time and again we keep creating numerous reports. The default printer driver information is stored by the VFP report generator in the .frx file. We need to hack and remove the information and recompile the files so that the distribution works smoothly in choosing the users printers.
Newbies ask how to do that.. or .. just get into a forum..reporting my REPORT file doesnt do this or that..etc.
So I felt the need for a general routine to have all the report files in a given directory hacked very easily - result is the following procedure.
**********************************************************
** PROCEDURE TO REMOVE PRINTER DRIVER INFO FROM FRX FILES.
**********************************************************
** by Subramanian.G (ramani)
** FoxAcc Software
** ramani_g@yahoo.com
** provided as freeware
**********************************************************
** How to use ....
** 1. Copy the setfrx routine as given below
** 2. Keep all your reports in a given directory
** The directory chosen here is the REPTS\directory
** under the default directory. you need to modify this
** suitably if the directory is different.
** 3. Run the programme by DO setfrx from the command window
** 4. For power programmers, the directory name can be
** replaced suitably with getdirectory etc and can be
** reconstructed.
**********************************************************
PROCEDURE setfrx
LOCAL lnFiles
lnFiles=ADIR(laFiles,"REPTS\*.FRX"
FOR I=1 TO lnFiles
USE "REPTS\"+laFiles(I,1)
LOCATE
REPLACE Expr WITH "", Tag WITH "", Tag2 WITH ""
USE
WAIT WINDOW laFiles(I,1)
ENDFOR
RETURN
**********************************************************
** eof
**********************************************************
** Let us not reinvent the wheel
**
ramani
(Subramanian.G)
FoxAcc
ramani_g@yahoo.com
Newbies ask how to do that.. or .. just get into a forum..reporting my REPORT file doesnt do this or that..etc.
So I felt the need for a general routine to have all the report files in a given directory hacked very easily - result is the following procedure.
**********************************************************
** PROCEDURE TO REMOVE PRINTER DRIVER INFO FROM FRX FILES.
**********************************************************
** by Subramanian.G (ramani)
** FoxAcc Software
** ramani_g@yahoo.com
** provided as freeware
**********************************************************
** How to use ....
** 1. Copy the setfrx routine as given below
** 2. Keep all your reports in a given directory
** The directory chosen here is the REPTS\directory
** under the default directory. you need to modify this
** suitably if the directory is different.
** 3. Run the programme by DO setfrx from the command window
** 4. For power programmers, the directory name can be
** replaced suitably with getdirectory etc and can be
** reconstructed.
**********************************************************
PROCEDURE setfrx
LOCAL lnFiles
lnFiles=ADIR(laFiles,"REPTS\*.FRX"
FOR I=1 TO lnFiles
USE "REPTS\"+laFiles(I,1)
LOCATE
REPLACE Expr WITH "", Tag WITH "", Tag2 WITH ""
USE
WAIT WINDOW laFiles(I,1)
ENDFOR
RETURN
**********************************************************
** eof
**********************************************************
** Let us not reinvent the wheel
**
ramani
FoxAcc
ramani_g@yahoo.com