Vi en uno de tus post
Así es mo lo hago yo y no temgo problema alguno:
oWord := Tword():New()
oWord:OpenDoc(cRutaDoc)
//
oWord:Replace("[NOMBRE]",cNombre)
oWord:Replace("[DOMICILIO]",cDomicilio)
//
IF lPreWord
oWord:Visualizar()
ENDIF
//
oWord:PrintDoc()
oWord:End(.F.)
Un saludo,
Manuel
Estoy haciendo una aplicacion de cotizaciones a clientes
En esta aplicacion doy de alta una cotizacion pero en si la cotizacion se elabora en word dandole el nombre al archivo con el numero asignado desde la alta de cotizacion
Lo que yo quiero hacer desde mi aplicacion es abrir esa cotizacion en word e imprimila
Con esta porcion de codigo
- Code: Select all Expand view
- STATIC FUNCTION Imprime
oWord := Tword():New()
oWord:OpenDoc("e:\descargas\pruebaword.doc")
oWord:oWord:Set( "PrintPreview", .T.)
oWord:oActiveDoc:Invoke( "PrintPreview")
oWord:Visualizar()
lPreWord := .t.
//
//oWord:Replace("[NOMBRE]",cNombre)
//oWord:Replace("[DOMICILIO]",cDomicilio)
//
//IF lPreWord
// oWord:Visualizar()
//ENDIF
//
//oWord:EditDoc()
oWord:PrintDoc()
oWord:End(.F.)
RETURN NIL
logro imprimir directamente pero como dije anteriormente, que se abra en word e imprimirla
No se si me di a entender
De antemano muchas gracias
Saludos
