Having written this, if I may, the suggestion here is to take a take form table format to an HTML page (bypassing the actual VFP report) and view it in the internet explorer. It does not take into account a pre-existing report.
>Dear Sir,
>
>I took the following codes from this link,
>
http://www.tek-tips.com/faqs.cfm?fid=3503>
>This works fine, but I want to my report "D:\BANKS\REPORTS\REPORT1" through these code.
>To do this Please make some modification in codes.
>
>Thanks in advance
>
>
>*Constants for ExecWB first parameter
>#DEFINE OLECMDID_OPEN 1
>#DEFINE OLECMDID_NEW 2
>#DEFINE OLECMDID_SAVE 3
>#DEFINE OLECMDID_SAVEAS 4
>#DEFINE OLECMDID_SAVECOPYAS 5
>#DEFINE OLECMDID_PRINT 6
>#DEFINE OLECMDID_PRINTPREVIEW 7
>#DEFINE OLECMDID_PAGESETUP 8
>#DEFINE OLECMDID_SPELL 9
>#DEFINE OLECMDID_PROPERTIES 10
>#DEFINE OLECMDID_CUT 11
>#DEFINE OLECMDID_COPY 12
>#DEFINE OLECMDID_PASTE 13
>#DEFINE OLECMDID_PASTESPECIAL 14
>#DEFINE OLECMDID_UNDO 15
>#DEFINE OLECMDID_REDO 16
>#DEFINE OLECMDID_SELECTALL 17
>#DEFINE OLECMDID_CLEARSELECTION 18
>#DEFINE OLECMDID_ZOOM 19
>#DEFINE OLECMDID_GETZOOMRANGE 20
>#DEFINE OLECMDID_UPDATECOMMANDS 21
>#DEFINE OLECMDID_REFRESH 22
>#DEFINE OLECMDID_STOP 23
>#DEFINE OLECMDID_HIDETOOLBARS 24
>#DEFINE OLECMDID_SETPROGRESSMAX 25
>#DEFINE OLECMDID_SETPROGRESSPOS 26
>#DEFINE OLECMDID_SETPROGRESSTEXT 27
>#DEFINE OLECMDID_SETTITLE 28
>#DEFINE OLECMDID_SETDOWNLOADSTATE 29
>#DEFINE OLECMDID_STOPDOWNLOAD 30
>
>*Constants for ExecWB second parameter
>#DEFINE OLECMDEXECOPT_DODEFAULT 0
>#DEFINE OLECMDEXECOPT_PROMPTUSER 1
>#DEFINE LECMDEXECOPT_DONTPROMPTUSER 2
>#DEFINE OLECMDEXECOPT_SHOWHELP 3
>
>*Constants for QueryStatusWB return values
>#DEFINE OLECMDF_SUPPORTED 1
>#DEFINE OLECMDF_ENABLED 2
>#DEFINE OLECMDF_LATCHED 4
>#DEFINE OLECMDF_NINCHED 8
>
>*Constants for ShowWindow second paramter
>#DEFINE SW_NORMAL 1
>#DEFINE SW_MAXIMIZE 3
>#DEFINE SW_MINIMIZE 6
>
>*Constants for SendMessage second parameter
>#DEFINE WM_GETICON 0x7F
>#DEFINE WM_SETICON 0x80
>
>*Constants for SendMessage third parameter
>#DEFINE ICON_SMALL 0
>#DEFINE ICON_BIG 1
>
>DECLARE Long FindWindow in Win32API String, String
>DECLARE Long BringWindowToTop in Win32API Long
>DECLARE Long ShowWindow in Win32API Long, Long
>DECLARE INTEGER SetWindowText IN user32 INTEGER hWnd, STRING lpString
>DECLARE INTEGER ExtractIcon IN shell32 INTEGER hInst, STRING lpszExeFileName, INTEGER lpiIcon
>DECLARE INTEGER SendMessage IN user32 INTEGER hWnd, INTEGER Msg, INTEGER wParam, INTEGER lParam
>
>Public oBrowser
>Local sTempPath, lnHWND, lcTitle, lnIcon
>
>PUSH Key
>
>ON KEY LABEL ALT+X Cancel
>
>CREATE CURSOR myCursor (name c(20),address c(20))
>INSERT INTO myCursor (name, address) VALUES ("Mike","123")
>INSERT INTO myCursor (name, address) VALUES ("Paul","321")
>INSERT INTO myCursor (name, address) VALUES ("John","345")
>INSERT INTO myCursor (name, address) VALUES ("Ringo","567")
>INSERT INTO myCursor (name, address) VALUES ("Georges","987")
>GO top
>sTempPath = ADDBS(SYS(2023))
>IF !FILE(sTempPath + "someSheet.htm")
> SET TEXTMERGE TO memvar lcHTML noshow
> SET TEXTMERGE on
> \\<HTML><BODY><TABLE>
> SCAN
> \<tr>
> FOr lnField = 1 to AFIELDS(laFields)
> \\<td><<EVALUATE(FIELD(m.lnField))>><td>
> ENDFOR
> \</tr>
> ENDSCAN
> \</table></body></html>
> SET TEXTMERGE OFF
> SET TEXTMERGE TO
> STRTOFILE(lcHTML,sTempPath + "someSheet.htm")
>ENDIF
>
>oBrowser=CREATEOBJECT("internetexplorer.application")
>oBrowser.navigate(sTempPath+"someSheet.htm")
>
>DO WHILE oBrowser.QueryStatusWB(OLECMDID_PRINTPREVIEW) != (OLECMDF_SUPPORTED + OLECMDF_ENABLED)
> DOEVENTS
>ENDDO
>oBrowser.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER)
>
>lcTitle = "Print Preview"
>lnHWND = 0
>DO WHILE lnHWND = 0
> DOEVENTS
> lnHWND = FindWindow(null,lcTitle)
>enddo
>lnIcon = ExtractIcon (0,HOME()+"GRAPHICS\ICONS\WRITING\NOTE11.ICO",0)
>SetWindowText(lnHWND, "FISCAL STATISTICS REPORT")
>SendMessage(lnHWND, WM_SETICON, ICON_SMALL, lnIcon)
>*!* SendMessage(lnHWND, WM_SETICON, ICON_BIG, lnIcon)
>BringWindowToTop(lnHWND)
>ShowWindow(lnHWND, SW_MAXIMIZE)
>CLEAR DLLS "FindWindow", "BringWindowToTop", "ShowWindow", "SetWindowText", "ExtractIcon", "SendMessage"
>POP KEY All
>
