Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations biv343 on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Hacking Printer Driver Info from .FRXs

Status
Not open for further replies.

ramani

Programmer
Mar 15, 2001
4,336
AE
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
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top