RE:Mandar informacion de fox a word
Hola grupo¡¡¡Bueno..luego de tanto....ya investigue que los reportes de Visual Fox no se pueden convertir a formato Word, si se pueden convertir a .Pdf con el "Pdf Writer que es un aplicativo gratis que anda rolando por la web.
Bueno, para mandar informacion de visual fox a un archivo de microsoft word publico aca un ejemplo que funciona:
Utilizo la tbl customer de visual fox
USE "C:Archivos de programaMicrosoft Visual FoxPro 9SamplesDatacustomer"
LOCAL oDocument, oRange
OWord = CreateObject ( "Word.Application")
oWord.Visible = .F.
oDocument = oWord.Documents.Add()
*oDocument = oWord.Documents.open("c: est1") &&Si utizas una plantilla ya definida
oRange = oDocument.Range()
oRange.InsertParagraphAfter()
oRange.InsertAfter(Cust_ID + ": " + Company )
oRange.InsertParagraphAfter()
oRange.InsertAfter("Attn: " + TRIM(Contact) + " - " + Title )
oRange.InsertParagraphAfter()
ORange.InsertAfter ( "A la atención de:" + TRIM (Contact) + "-" + Title)
oRange.InsertParagraphAfter()
oRange.InsertAfter(Address )
oRange.InsertParagraphAfter()
oRange.InsertAfter(TRIM(City) + " " + TRIM(Region) + PostalCode )
oRange.InsertParagraphAfter()
oRange.InsertAfter(UPPER(Country))
oword.activedocument.save &&&guarda el documento en este directorio y con ese nombre
*oword.activedocument.saveAs &&&save as si queres guardar los cambios sin afectar tu plantilla, para el caso se utilice una plantilla
oWord.Visible = .T. && Inspect the results
MESSAGEBOX("Look at results in Word.")
*oWord.Quit(.F.) && Parra cerrar a winword
*ThisForm.Release