Imprimir Archivo WORD

[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.

[stefano]

Yo utilizo este comando. prueba asì

oword:printdoc()

Stefano

[cnavarro]

Y si quieres imprimir después de cerrar el objeto

Code: Select all

Shellexecute(nil, "print", cFile)