Page 1 of 1

Imprimir Archivo WORD

Posted: Tue Apr 17, 2018 3:40 pm
by jbrita
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.

Re: Imprimir Archivo WORD

Posted: Tue Apr 17, 2018 5:10 pm
by stefano
Yo utilizo este comando. prueba asì

oword:printdoc()

Stefano

Re: Imprimir Archivo WORD

Posted: Tue Apr 17, 2018 5:19 pm
by cnavarro
Y si quieres imprimir después de cerrar el objeto

Code: Select all

Shellexecute(nil, "print", cFile)