Perguntas FOR RELATÓRIO WORD

Bom dia Galera ...

Estou fazendo um relatório word e tenho que dar um while para incluir os dados do item enquanto final do arquivo até ai tudo bem... debuguei a variavel e deu certo. mais na hora do for pra mandar pra word ele só imprime o ultimo item do array.

Me ajudem ai !!!! TO fazendo assim :

While !TRB->(EOF())
AAdd(wcItem,TRB-> CK_ITEM)// aqui ta certo a wcItem imprime 01,02,03...
TRB->(DBSKIP())
enddo

for I := 1 to nCont
OLE_SetDocumentVar(hWord,'Prt_Item',wcItem)//aqui prt_item só o ultimo 03
next I

Tarde Galera em relação ao for na verdade ele não estava errado é que no caso de relatório word com itens temos que usar macro no dot. Mais valeu apena adquirir mais esse conhecimento. fonte e dot em anexo abraço !

Ótimo fim de semana,


Manoel Carlos Junior

O

ANEXO ACIMA ESTA ERRADO