PC Toledo

Código: Selecionar todos

PROCEDURE geraWord( cARQ )
local x,atu:=0,pos:=0,arq,valbuf,buffer,bytes,bloco,ch,linhaImpressao
LOCAL oWord, oText
PRIVATE oDlgHabla:=NIL
TRY
   oWord := GetActiveObject( "Word.Application" )
CATCH
   TRY
      oWord := CreateObject( "Word.Application" )
   CATCH
      avi_rep("Não foi Possivel Achar o Word Instalado")
      IF oDlgHabla#NIL
        oDlgHabla:CLOSE()
      ENDIF
      RETURN
   END
END

oWord:Documents:Add()
oText := oWord:Selection()
oText:Font:Name := "Lucida Console"
oText:Font:Size := 8
oText:Font:Bold := .F.

valbuf = 11000
arq=FOPEN(cArq,0)
do while .t.
   buffer=SPACE(valbuf)
   FSEEK(arq,atu,0)
   bytes=FREAD(arq,@buffer,valbuf)
   pos=AT(CHR(12),buffer)
   if bytes=0 .OR. pos=0
      exit
   endif
   bloco=substr(buffer,1,pos)
   linhaImpressao=""
   for x=1 to len(bloco)
      ch=substr(bloco,x,1)
      do case
      // para o word fica mais rápido mandar de pagina em pagina em vez de linha em linha
      //case ch = FIM_LINHA
         //oText:Text += HB_OemToAnsi(strtran(linhaImpressao,chr(13),"")) + CRLF
         //linhaImpressao=""
      case ch = FIM_PAGINA
         oText:Text += HB_OemToAnsi(strtran(linhaImpressao,chr(13),"")) + chr(10)+chr(12)
         linhaImpressao=""
      otherwise
         linhaImpressao+=ch
      endcase
   next
   atu=atu+pos
enddo
oWord:Visible := .T.
oWord:WindowState := 1
IF oDlgHabla # NIL
   oDlgHabla:CLOSE()
ENDIF
RETURN