imprimir automaticamente documento de Word desde Visual Basic

aguevara1966
05 de Octubre del 2003
Hola, espero que me ayuden, necesito imprimir un documento especifico creado en MS Word, pero no deseo abrir word e imprimirlo, sino que la aplicacion de Visual Basic abra el documento y lo imprima. esta accion lo debe hacer hacer la aplicacion cuando el usuario pulse un boton especifico.

jorge_tello5
05 de Octubre del 2003
bueno me imagino que ya puedes habrir el archivo, asi que mandarlo ha imprimir es mucho mas facil, yo no le he hecho con Word sino con excel pero supongo que es lo mismo lo unoco que tienes que cambiar es un true por un false de la siguiente forma:


Public xlApp As Excel.Application
Public xlBook As Excel.Workbook
Public xlSheet As Excel.Worksheet
' esta funcion la uso para enviar los datos

Public Function EnviarDatos(ByVal Dato, ByVal Fila, ByVal Columna, ByVal Hoja) As Boolean

EnviarDatos = False
On Error GoTo er
xlBook.Worksheets(Hoja).Cells(Fila, Columna) = Dato
EnviarDatos = True
er:
Debug.Print "Error de transmicion"

End Function
'esta funcion permite presentar los datos en una vista preliminar

Public Sub PresentarDatos()
xlApp.Visible = True
' vista previa
xlBook.PrintPreview
Unload Formas
'Set xlApp = Nothing
End Sub

'esta funcion imprime sin abrir excel

Public Sub ImprimirDatos()
xlApp.Visible = False
Unload Formas
xlBook.PrintOut
End Sub

jorge_tello5
05 de Octubre del 2003
bueno me imagino que ya puedes habrir el archivo, asi que mandarlo ha imprimir es mucho mas facil, yo no le he hecho con Word sino con excel pero supongo que es lo mismo lo unoco que tienes que cambiar es un true por un false de la siguiente forma:


Public xlApp As Excel.Application
Public xlBook As Excel.Workbook
Public xlSheet As Excel.Worksheet
' esta funcion la uso para enviar los datos

Public Function EnviarDatos(ByVal Dato, ByVal Fila, ByVal Columna, ByVal Hoja) As Boolean

EnviarDatos = False
On Error GoTo er
xlBook.Worksheets(Hoja).Cells(Fila, Columna) = Dato
EnviarDatos = True
er:
Debug.Print "Error de transmicion"

End Function
'esta funcion permite presentar los datos en una vista preliminar

Public Sub PresentarDatos()
xlApp.Visible = True
' vista previa
xlBook.PrintPreview
Unload Formas
'Set xlApp = Nothing
End Sub

'esta funcion imprime sin abrir excel

Public Sub ImprimirDatos()
xlApp.Visible = False
Unload Formas
xlBook.PrintOut
End Sub

si quieres un ejemplo te lo puedo enviar por mail, escribeme

Suerte