FoxPro/Visual FoxPro - REPORTE

 
Vista:

REPORTE

Publicado por PULGA (10 intervenciones) el 12/02/2007 14:35:17
Hola, es que tengo que crear unos formatos de unos documentos, pero me parece muy complicado crearlos en fox, por lo de centrar y todo eso, es casi puro texto...Mi pregunta es SERÁ POSIBLE CREAR UN REPORTE DIRECTAMENTE EN WORD, EJECUTANDOLO DESDE FOX?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:REPORTE

Publicado por Ernesto Hernandez (4623 intervenciones) el 12/02/2007 17:19:29
PUBLIC oWord
oWord = CREATEOBJECT("Word.Basic")
WITH oWord
.AppShow && Muesrta word
.FileNewDefault && abre archivo de word en blanco

SELEC mItABLA
GO TOP

DO WHILE NOT EOF()
.Insert("Record: "+ALLTRIM(STR(RECNO())))
&& The above line shows the record number.
.InsertPara
.InsertPara
.Insert(ALLTRIM(first)+" "+last) && Field in the table.
.InsertPara
.Insert(address)
.InsertPara
.Insert(ALLTRIM(city)+", "+state+" "+zipcode)
.InsertPara
.InsertPara
.Insert("Contents of the General Field:")
.InsertPara
.InsertPara
KEYBOARD "{ctrl+c} {ctrl+w}" &&
MODIFY GENERAL gen &&
.EditPaste
.WordLeft(1,1)
.EditObject("0")
.EditSelectAll
.Editcopy
.FileClose
.EditClear
.EditPaste
.InsertPara
.InsertPara
.InsertPara
SKIP
ENDDO
.FileSaveAs("c:\mydoc.doc")
.FilePrint
.AppClose
ENDWITH


Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:REPORTE

Publicado por Plinio (7841 intervenciones) el 12/02/2007 18:28:03
Puedes automatizar a word, por ejemplo
http://support.microsoft.com/kb/250501/es
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar