Alessio
open Excel with automation?
With Thisform
.oExcel = CREATEOBJECT( "excel.application")
.oExcel.Workbooks.Open( lcFileToOpen)
.oExcel.Visible = .T.
.oExcel.Range("A1").Select
Endwith or: (think this works):
ShellExecute( 0, "Open", "myPDFDoc.PDF", ["] + lcFileToOpen + ["], "", 1)
or:
DECLARE INTEGER ShellExecute IN "Shell32.dll" ;
INTEGER hwnd, ;
STRING lpVerb, ;
STRING lpFile, ;
STRING lpParameters, ;
STRING lpDirectory, ;
LONG nShowCmd
lcPDFfile = "c:\mydir\myfile.pdf"
=Shellexecute(0,"Open", lcPDFfile, "","",7)
=Shellexecute(0,"Print", lcPDFfile, "","",0)or:
oShell = CreateObject( "WScript.Shell")
oShell.Run( ( lcFullPathAndExtension), 1, .T.)
HTH
Ciao
Terry
- Whoever said that women are the weaker sex never tried to wrest the bedclothes off one in the middle of the night
- Worry is the interest you pay, in advance, for a loan that you may never need to take out.
