Hola German
No se si lo que pretendes es un imposible, pero en C3 lo veo dificil.
Solamente se me ocurre tener el BMP como marca de agua y el texto fijo en un formulario de word, que tenga tantos formularios(campos) como desees, despues desde C3:
oWord := TOleContainer():Create("Word.Application") ioWord := oWord:Documents:add(path+"nombreword.doc")
with oWord:activedocument:formfields :item("campo1"):select() :item("campo1"):result := variable, campo, cadena
:item("campo2"):select() :item("campo2"):result := variable, campo, cadena
.... endwith
ioWord:PrintOut() //imprime sin visualizar word *oWord:visible := .T. //se abre word
* Chapuza para esperar a que word temine de imprimir oDlg := MessageDlg( "Imprimiento Word...Espere", mtInformation,mbOk ) * si se acepta el mensaje y no ha terminado de imprimir se pierde *la impresion, con un ordenador rapido posiblemente imprima sin *problemas
ioWord:close(0) // cierro word sin grabar oWord:Quit() oWord:Destroy()
Un saludo
Amable
|