imprimir en Word
Rosario
22 de Julio del 2005
Necesito saber como mando varios textbox (desde un boton en visual) a Word y de alli imprimir esos textbox????
Emi
22 de Julio del 2005
Lo m谩s f脿cil ser铆a que de los textbox los pasases a una base de datos de access, y hacer una combinaci贸n de correspondencia para tener el documento de word, y luego imprimirlo.
Vale, suena complicado, pero es f谩cil.
lo m谩s complicado es lo de la combinaci贸n de correspondencia, lo de crear la base de datos y llenarla con los textbox supongo que sabes hacerlo, lo de "combinar" te lo explico.
Pues con la base de datos ya llena y la plantilla hecha, le das en WORD a crear una macro, y haces la combinaci贸n de correspondencia, guardas el documeto y lo imprimes, y paras de grabar la macro.
Ahora volvemos a VB, y vamos a ver qu茅 tienes que hacer en el c贸digo.
Desde VB, cuando ya tienes llena la base de datos, solo tienes que crear un objeto WORD, y hacer que se ejecute la macro del documento:
Dim DocWord as Object
Set DocWord=CreateObject("Word.Application")
DocWord.Application.Visible=false
DocWord.Documents.Open FileName:=fichero
DocWord.Run ("Macro1")
DocWord.Quit
Set DocWord=Nothing
Vale, suena complicado, pero es f谩cil.
lo m谩s complicado es lo de la combinaci贸n de correspondencia, lo de crear la base de datos y llenarla con los textbox supongo que sabes hacerlo, lo de "combinar" te lo explico.
Pues con la base de datos ya llena y la plantilla hecha, le das en WORD a crear una macro, y haces la combinaci贸n de correspondencia, guardas el documeto y lo imprimes, y paras de grabar la macro.
Ahora volvemos a VB, y vamos a ver qu茅 tienes que hacer en el c贸digo.
Desde VB, cuando ya tienes llena la base de datos, solo tienes que crear un objeto WORD, y hacer que se ejecute la macro del documento:
Dim DocWord as Object
Set DocWord=CreateObject("Word.Application")
DocWord.Application.Visible=false
DocWord.Documents.Open FileName:=fichero
DocWord.Run ("Macro1")
DocWord.Quit
Set DocWord=Nothing