| Pregunta: | 11177 - PRESENCIA DE WORD, INSTANCIA CON TEXTO Y TABLA |
| Autor: | Melchor Ranchal Migallón |
| Esencialmente, lo que me gustaría es que mi aplicación detectara si Word se ha inciciado para luego crear una instancia que me permita dar formato a un texto y una tabla que he rellenado desde mi aplicación. Lo que quiero es evitar el uso del objeto Printer.
| |
| Respuesta: | Antonio Quintela |
| Creo que para lo que quieres hacer no es necesario que detectes si Word está iniciado. En el siguiente ejemplo se utiliza Word para imprimir un texto con formato desde VB.
Public Sub Imprimir_Texto(sTexto as string) Dim oHoja As Word.Application Dim oDoc As Word.Document Set oHoja = New Word.Application Set oDoc = oHoja.Documents.Add oDoc.PageSetup.LeftMargin = 71 ' 2,5 cm. oDoc.PageSetup.RightMargin = 71 oDoc.ActiveWindow.Selection.InsertAfter Text1.Text oDoc.ActiveWindow.Selection.Paragraphs(1).Alignment = wdAlignParagraphCenter oDoc.ActiveWindow.Selection.Paragraphs(1).Range.Font.Name = "Times New Roman" oDoc.ActiveWindow.Selection.Paragraphs(1).Range.Font.Size = 18 oDoc.ActiveWindow.Selection.Paragraphs(1).Range.Font.Bold = True oDoc.ActiveWindow.Selection.Paragraphs(1).Range.Font.Underline = True oDoc.ActiveWindow.Selection.Paragraphs(1).Range.Font.Italic = True oDoc.ActiveWindow.Selection.EndOf oDoc.Activate oDoc.PrintOut (0) oDoc.Close (0) oHoja.Quit Set oDoc = Nothing Set oHoja = Nothing Espero que te haya servido de ayuda. Saludos. | |