FRX Output to PDF, HTML, Excel and etc.

[fkwong]

I am looking into third party program that will output the existing VFP report to PDF, HTML, Word, Excel and other formats. I found a software call FRX2ANY, but it require me to call its program (APP) in order to output to the format I want. I rathar have a software that I can build into the existing reports so that I can customize within the existing application.

If you know any programs out there that will meets my need. Please let me know.

Thanks in advance.

http://www.neova.ca/english/Frame_en.htm

 

[ramani]

HI

In your List or Print Button Click event, you can put the code,

*****************************************************
DEFINE POPUP SetReport SHORTCUT RELATIVE ;
FROM MROW(),MCOL() ;
TITLE "Report Options" MARGIN

DEFINE BAR 1 OF SetReport PROMPT "Set Printer Options"
DEFINE BAR 2 OF SetReport PROMPT "How Many Copies?"
DEFINE BAR 3 OF SetReport PROMPT "Send Report to Printer"
DEFINE BAR 4 OF SetReport PROMPT "Send Report to Preview"
DEFINE BAR 5 OF SetReport PROMPT "Send Report to Excel"
DEFINE BAR 6 OF SetReport PROMPT "Send Report to PDF"
DEFINE BAR 7 OF SetReport PROMPT "Send Report to Word"
DEFINE BAR 8 OF SetReport PROMPT "Send Report to TextFile"
DEFINE BAR 9 OF SetReport PROMPT "Canecl Printing"
ON SELECTION POPUP SetReport DEACTIVATE POPUP
*****************************************************
DO WHILE .T.
ACTIVATE POPUP SetReport
IF BAR() = 1
SYS(1037)
ENDIF
IF BAR() = 2
LOCAL nCopies
nCopies = ''
nCopies = ;
VAL(INPUTBOX("Specify Number of Copies ?","","1&quot)
IF ! nCopies => 1 ;
=MESSAGEBOX("Specify Number of Copies as number", ;
0+16,"Error&quot
KEYBOARD '{M}'
nCopies = 1
ELSE
nCopies = 1
ENDIF
_pCopies = nCopies
ENDIF
IF BAR() = 3
** DO PRINTING JOB
IF VARTYPE(nCopies) = "U"
nCopies=1
ENDIF
ThisForm.ReportPrint(nCopies)
EXIT
ENDIF
IF BAR() = 4
** DO PRINT PREVIEW
ThisForm.ReportView()
EXIT
ENDIF
IF BAR() = 5
** USING THE PRINT REPORT TABLE, EXPORT TO EXCEL
ThisForm.ReportExcel()
EXIT
ENDIF
IF BAR() = 6
** DO REPORT USING PDF CREATOR ** print2pdf
ThisForm.ReportPdf()
EXIT
ENDIF
IF BAR() = 7
** USe Frx2Word.APP from Universal thread and export
ThisForm.ReportWord()
EXIT
ENDIF
IF BAR() = 8
** REPORT FORM (myReport) TO FILE (myFile) ASCII
ThisForm.ReportText()
EXIT
ENDIF
IF BAR() = 9
** Cancel Printing
EXIT
ENDIF
ENDDO
********************************************

If you make the above as a standard routine under your report form, then add the following mehods to your report form.. with code to do whtever you want..
You should hold the reportFRXname in a forms property to access from all these methods.

1. GenReport
2. ReportView
3. ReportPrint etc.. as methods..

You can copy this form to every report of yours.. then suitably put the code and fire the report.




____________________________________________
ramani - (Subramanian.G)

http://winnersoft.coolfreepages.com/

When you ask VFP questions, please add VFP version.

 

[tushar149]

hello fkwong

please tell me do you have license version of frx2any because i have downloaded demo version but it is not running in demo version..

 

[Mike Lewis]

tushar149,

If you are referring to the demo PRG that comes with FRX2ANY, don't bother with it. It is a very simple program, and does not support all the options of the product.

It is easy to build your own program to run FRX2ANY. Just read the documentation file that comes with it.

Mike




Mike Lewis
Edinburgh, Scotland

http://www.ml-consult.demon.co.uk