salvar impressao harbour minigui

[jcsprog]

ola pessoal estou gerando um relatorio com winprint.ch todo ok
so que ta salvando como imagem, e tem que ser word ond faço a mudança , ums pedaço do sistema :

Código: Selecionar todos

FUNCTION ImprimirORC 
#include "winprint.ch"

   Local dirimp:=GetCurrentFolder(), PAG, LIN
   Local GBuscar    := ORCAM

   If MsgYesNo ("Deseja Imprimir Forma Pgto?","Atenção")
      ChkFpgto:="S"
   Else
      ChkFpgto:="N"
   endif		   

   prim:="IMGIMP.BMP"

   IF !ORC->(DBSeek(STR(GBUSCAR,10)))   && Posiciona no registro  
        MSGBOX("Nº Pedido Não Encontrado!")
       return nil
  ENDIF

   LAN->(DBSeek(STR(GBUSCAR,10))) 

   TituloImp:='Orçamentos'
   VNOMEMP:=EMP->DESCR
   VENDEMP:=EMP->END
   IMAGETELA:="DMP 1.BMP"
   
   CLI->(DBSEEK(LAN->CGC_CLI))
   VRAZ:=CLI->RAZ_CLI ; VEND:=CLI->END_CLI ; VBAIRRO:=CLI->BAI_CLI ; VCIDADE:=CLI->CID_CLI
   VUF:=CLI->EST_CLI ; VCEP:=CLI->CEP_CLI ; VCGC:=CLI->CGC_CLI ; VIES:=CLI->INS_CLI ; VTEL:=CLI->FON_CLI
   
   INIT PRINTSYS
   SELECT BY DIALOG PREVIEW
   IF HBPRNERROR > 0
      RETURN NIL
   ENDIF

    // Definição das fontes.
    define font "ft10" name "times new roman" size 10
    define font "ft12" name "times new roman" size 12 //bold=negrita
    define font "ft14" name "times new roman" size 14
    define font "ft18" name "times new roman" size 18

    // Definição das Linhas.
    define pen "p0" style PS_SOLID width 1 color 0x000000
    define pen "p1" style PS_DOT width 1 color 0xFF0000
    define pen "p2" style PS_NULL
    
    start doc name TituloImp
    start page

[HASA]

BOENAS, NÃO É POSSIVEL FAZER ISSO COM A WINPRINT, ME PARECE QUE COM A MINPRINT.LIB TEM OUTRAS FORMAS DE GRAVAR O ARQUIVO, PDF E TAL OK.
HONÓRIO