Problema de VB con Word (continuacion)
Publicado por AlonsoCB (5 intervenciones) el 28/09/2003 22:21:59
Otro problema que tengo es al mandar a imprimir el documento destino, ya que se tarda eternidades para que empiece a imprimir... si es que no se traba. Para esto uso el sig. còdigo:
Private Sub ImprimeDem(Name As String) ----> Le mando como parametro el archivo destino
Dim AppWord
Dim Word
Set AppWord = CreateObject("word.application")
Set Word = AppWord.documents.Open(Name)
AppWord.documents(1).PrintOut
Do While AppWord.BackgroundPrintingStatus = 1
Loop
AppWord.documents.Close
Set Word = Nothing
AppWord.Quit
Set AppWord = Nothing
End Sub
Este programa no lo puedo hacer usando un RichTextBox porque al cargar un archivo en este componente no me justifica el texto, a diferencia de word que al hacer los remplazos automaticamente ajusta el texto quedando justificado.
Si no pudieran ayudarme me gustaria saber por lo menos en que libro o manual puedo consultar todas las instrucciones de para manejar documentos de Word desde VB.
De antemano muchas gracias... Saludos a todos...
Private Sub ImprimeDem(Name As String) ----> Le mando como parametro el archivo destino
Dim AppWord
Dim Word
Set AppWord = CreateObject("word.application")
Set Word = AppWord.documents.Open(Name)
AppWord.documents(1).PrintOut
Do While AppWord.BackgroundPrintingStatus = 1
Loop
AppWord.documents.Close
Set Word = Nothing
AppWord.Quit
Set AppWord = Nothing
End Sub
Este programa no lo puedo hacer usando un RichTextBox porque al cargar un archivo en este componente no me justifica el texto, a diferencia de word que al hacer los remplazos automaticamente ajusta el texto quedando justificado.
Si no pudieran ayudarme me gustaria saber por lo menos en que libro o manual puedo consultar todas las instrucciones de para manejar documentos de Word desde VB.
De antemano muchas gracias... Saludos a todos...
Valora esta pregunta
0