Imprimir Archivo WORD
Posted: Tue Apr 17, 2018 3:40 pm
Amigos como imprimir un Archivo WORD.
con esto codigo lleno un archivo word que uso como matrix, pero como hago que me imprima este archivo luego de ser llenado con la informacion.
la idea es que imprima directo. sin que habra el archivo
saludos
FUNCTION CargaWord(oRut,oNombres,aDirCte,aNumCte,aConCte,oApPaterno,oApMaterno,aFecCte,aServicios,oBrw1 )
*-----------------
Local oWord,oZoom,oTexto,I
LOcal nTotal:=0
oWord:=TOleAuto():New( "Word.Application" )
oWord:Documents:Open("C:\SYSTEMA\TV_CABLE\CONTRATO.DOCX")
oTexto:= oWord:Selection()
oTexto:HomeKey(6) //NOS VAMOS AL INICIO DEL DOCUMENTO
oTexto:find:text := "[domicilio]" //LO QUE VOY A BUSCAR
oTexto:find:Forward = .t. //BUSCAR HACIA ABAJO
If oTexto:find:execute() //EJECUTAR LA BUSQUEDA Y SI FUE TRUE
oTexto:Text := AllTrim(aDirCte)+" "+AllTrim(Str(aNumCte)) //REEMPLAZO EL TEXTO
Endif
oWord:Visible := .T.
oTexto:End()
RETURN .T.
con esto codigo lleno un archivo word que uso como matrix, pero como hago que me imprima este archivo luego de ser llenado con la informacion.
la idea es que imprima directo. sin que habra el archivo
saludos
FUNCTION CargaWord(oRut,oNombres,aDirCte,aNumCte,aConCte,oApPaterno,oApMaterno,aFecCte,aServicios,oBrw1 )
*-----------------
Local oWord,oZoom,oTexto,I
LOcal nTotal:=0
oWord:=TOleAuto():New( "Word.Application" )
oWord:Documents:Open("C:\SYSTEMA\TV_CABLE\CONTRATO.DOCX")
oTexto:= oWord:Selection()
oTexto:HomeKey(6) //NOS VAMOS AL INICIO DEL DOCUMENTO
oTexto:find:text := "[domicilio]" //LO QUE VOY A BUSCAR
oTexto:find:Forward = .t. //BUSCAR HACIA ABAJO
If oTexto:find:execute() //EJECUTAR LA BUSQUEDA Y SI FUE TRUE
oTexto:Text := AllTrim(aDirCte)+" "+AllTrim(Str(aNumCte)) //REEMPLAZO EL TEXTO
Endif
oWord:Visible := .T.
oTexto:End()
RETURN .T.