Carles,
Claro que es posible hacer reportes columnares, prueba esto :
Crea una tabla con 2 campos : Kardex3->Codigo Caracter de 30 y Kardex3->Desc1 Caracter de 45, y prueba el siguiente codigo :
//===================
FUNCTION prueba2()
//===================
local oWord,oFont1,oFont2,mdoc
local afondo := {nRGB(255,0,0), nRGB(255,255,255), ,2,4}
Local mcod,mdesc
SELECT A
USE KARDEX3
oWord:= Tword():New
oWord:NewDoc("prueba22")
DEFINE FONT oFont1 NAME "Arial" SIZE 0,-12 BOLD ITALIC UNDERLINE of oWord
DEFINE FONT oFont2 NAME "Tahoma" SIZE 0,-12 ITALIC of oWord
oWord:SetCm()
SELECT A
DO WHILE .NOT. EOF()
mLinea = 4
mCod = a->codprod
mdesc = a->Desc1
oWord:Say2( mLinea,1,mCod,oFont2,9,,, )
oWord:Say2( mLinea,3,mDesc,oFont2,9,,, )
skip
mLinea = mLinea + 1
ENDDO
// oWord:StartPage()
SYSREFRESH()
// oWord:EndPage()
// oWord:StartPage()
oWord:Save("C:\DATA1\PRUEBA.DOC")
oWord:Preview()
//oWord:PrintDoc(,,,,,,,,,)
// oWord:Quit()
oFont1:End()
oFont2:End()
//oWord:End(.f.)
CLOSE KARDEX3
RETURN NIL
y tienes tu reporte columnar y a ello le puedes agregar mas cosas como colores x linea, fonts, etc etc.
Saludes desde Managua, Nicaragua
Ramon Antonio Paredes
... Desde la Tierra de lagos y Volcanes......
Lo voy a probar. Gracias.
