Visual Basic - imprimir conectando con word

pretendo conectar con word, que este abra un documento y se imprima y se cierre el word (ya que no hay forma de imprimir de otra manera.....(no me sale) asi mismo por que me gustaria saber tambien si cuando abra el word y desde este el fichero que quiero imprimir, si le puedo agregar imagenes al documento e imprimirlo todo) muchas gracias

Hola Miguel Angel,

Manejar Word desde VB no es complicado, mira este código:

Private Sub cmdImprimirWord_Click()

Dim objWord As Object
Dim objDoc As Object

'Creamos una instancia de Word
Set objWord = CreateObject("Word.Application")

'Lo hacemos visible si lo creemos necesario
objWord.Visible = True

'Abrimos el documento d:\doc1.doc
Set objDoc = objWord.Documents.Open("d:\doc1.doc")

'Imprimimimos el documento en la impresora por defecto
objWord.PrintOut

'Cerramos el documento
objDoc.Close

'Cerramos Word
objWord.Quit

'Liberamos de memoria las dos variables objeto
Set objDoc = Nothing
Set objWord = Nothing

End Sub

Cada línea esta comentada por lo que no creo que tengas ningún probleam en comprender su funcionamiento, espero haberte ayudado.

un saludo,
Agui
[email protected]
http://www.madridsoft.com
Consultas gratuitas.

Hola Miguel Angel,

Manejar Word desde VB no es complicado, mira este código:

Private Sub cmdImprimirWord_Click()

Dim objWord As Object
Dim objDoc As Object

'Creamos una instancia de Word
Set objWord = CreateObject("Word.Application")

'Lo hacemos visible si lo creemos necesario
objWord.Visible = True

'Abrimos el documento d:\doc1.doc
Set objDoc = objWord.Documents.Open("d:\doc1.doc")

'Imprimimimos el documento en la impresora por defecto
objWord.PrintOut

'Cerramos el documento
objDoc.Close

'Cerramos Word
objWord.Quit

'Liberamos de memoria las dos variables objeto
Set objDoc = Nothing
Set objWord = Nothing

End Sub

Cada línea esta comentada por lo que no creo que tengas ningún problema en comprender su funcionamiento, espero haberte ayudado.

un saludo,
Agui
[email protected]
http://www.madridsoft.com
Consultas gratuitas.