Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Barbara Peisch
  Where is Barbara Peisch?
 California - United States
 Barbara Peisch
 To: Yousfi Benameur
  Where is Yousfi Benameur?
 El Bayadh
 Yousfi Benameur
Subject: RE: Send Report In Excel
Thread ID: 188958 Message ID: 189014 # Views: 1 # Ratings: 0
Version: Visual FoxPro 8 Category: Reports and Printers
Date: Wednesday, August 13, 2008 12:02:50 AM         

No, this won't work in VFP 8. We didn't have listners until VFP 9.

> Hi
> I make recently a program but with vfp9 to send a report to excel (or html) but i dont know if it works with vfp8
> adapt the folders and the name report.
>  clea all
> SET DEFAULT TO "c:\program files\microsoft visual foxpro 9\samples\solution\"
> USE ADDBS(HOME()) + 'Samples\Northwind\Orders'
> loListener = .NULL.
> do (_reportoutput) with 5, loListener
> loListener.TargetFileName = 'MyReport.xls'   &&'myReport.html
> loListener.QuietMode      = .T.
> afile='c:\program files\microsoft visual foxpro 9\samples\solution\europa\EmployeesMD.FRX'
> report form (afile)   object loListener  
> use
> &&show the result in Excel
> DECLARE INTEGER ShellExecute IN shell32.dll ; 
>   INTEGER hndWin, STRING cAction, STRING cFileName, ; 
>   STRING cParams, STRING cDir, INTEGER nShowWin
>   af='c:\program files\microsoft visual foxpro 9\samples\solution\MyReport.xls'
> ShellExecute(0,"open",af,"","",1)

> if not done for vfp8:
> If you can send a report to html (see _genhtml in foxhelp) you can then open it as a web page by excel and can save it as excel.
> regards
> Yousfi benameur



Send Report In Excel Posted by Amol Pawar @ 8/12/2008 7:28:51 PM
RE: Send Report In Excel Posted by Cathy Pountney @ 8/12/2008 7:42:20 PM
RE: Send Report In Excel Posted by Barbara Peisch @ 8/12/2008 9:08:07 PM
RE: Send Report In Excel Posted by Yousfi Benameur @ 8/12/2008 11:38:49 PM
RE: Send Report In Excel Posted by Barbara Peisch @ 8/13/2008 12:02:50 AM