Não por isso, Ricardo. É um prazer ajuda-lo.
Bem, realmente o que vc esta fazendo esta correto. Acontece que a versão corrente tem um problema que ja foi consertado e estara disponibilizado na proxima versao, que deve sair na semana que vem.
Faça da seguinte forma:
substitua: Thisform.Frx2Word.Doc_FileName=SalvaDir+"Relatorios\RelEstoque.Doc" por
Thisform.Frx2Word.Doc_FileName="RelEstoque.Doc"
e acrescente a linha:
Thisform.Frx2Word.savefolder=SalvaDir+"Relatorios\"
deve funcionar. :)
Fabio
>Olá Fabio,, Obrigado pela paciência !!!
>
>A linha que estou enviando é esta...
>
> SalvaDir=FullPath(CurDir())
> Thisform.Frx2Word.Doc_FileName=SalvaDir+"Relatorios\RelEstoque.Doc"
> Thisform.Frx2Word.nLeftMargin=12
> Thisform.cAlias=Alias()
> Thisform.cNameReport="Estoque1"
> Set Defa to Reports
> llRetorno =Thisform.frx2word.reportform(Thisform.cNameReport)
> Set Defa to &SalvaDir
>
>Ricardo Artur
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement