Ayuda Urgente
Publicado por Victor Chavez (23 intervenciones) el 20/06/2001 18:37:58
Espero que todos estén bien:
Bueno estoy haciendo una aplicación en la que tengo que generar un documento en Word y mandarlo a imprimir y todo funciona muy bien, en un texbox escribo todo lo que quiero que traiga el documento y lo manda al .doc y lo imprime pero lo que quiero hacer es darle formato al documento, como negrita, tipo de letra, tamaño de la letra, márgenes, etc,etc.
Este es el codigo que estoy utilizando.
Public objWord As Word.Application
Public objDoc As Word.Document
Public objRange As Word.Range
objDoc.PrintOut Range:=wdPrintCurrentPage
Set objWord = New Word.Application
Set objDoc = objWord.Documents.Open("C:\Mis Documentos\Victor Hugo Chavez Martine2")
objDoc.Activate
Set objRange = objDoc.Range
.Text = CStr(txtBCarta.Text)
objDoc.Close
objWord.Quit
Set objDoc = Nothing
Set objWord = Nothing
Gracias a Todos...............
Bueno estoy haciendo una aplicación en la que tengo que generar un documento en Word y mandarlo a imprimir y todo funciona muy bien, en un texbox escribo todo lo que quiero que traiga el documento y lo manda al .doc y lo imprime pero lo que quiero hacer es darle formato al documento, como negrita, tipo de letra, tamaño de la letra, márgenes, etc,etc.
Este es el codigo que estoy utilizando.
Public objWord As Word.Application
Public objDoc As Word.Document
Public objRange As Word.Range
objDoc.PrintOut Range:=wdPrintCurrentPage
Set objWord = New Word.Application
Set objDoc = objWord.Documents.Open("C:\Mis Documentos\Victor Hugo Chavez Martine2")
objDoc.Activate
Set objRange = objDoc.Range
.Text = CStr(txtBCarta.Text)
objDoc.Close
objWord.Quit
Set objDoc = Nothing
Set objWord = Nothing
Gracias a Todos...............
Valora esta pregunta


0