Imprimir documentos de word desde VB

Ancalo
05 de Agosto del 2004
Estoy intentando de imprimir documentos de word desde Visual Basic, me he bajado una rutina de los foros pero no le ago de funcionar, alguien me pdodria explicar.

Dim AppWord As Word.Application
Dim DocWord As Word.Document

'Asignamos el documento
Set AppWord = CreateObject("word.application")
Set DocWord = AppWord.Documents.Open("ruta y nombre del archivo.doc")

'Colocamos el texto en el marcador
DocWord.Bookmarks(?).Select
AppWord.Selection.TypeText Text:=?

'Imprimimos en segundo plano
AppWord.Documents(1).PrintOut Background

'Comprobamos que Word no Sigue imprimiendo
Do While AppWord.BackgroundPrintingStatus = 1
Loop

'Cerramos el documento sin guardar cambios
AppWord.Documents.Close (wdDotNotSaveChanges)

'Liberamos
Set DocWord = Nothing

'Nos cargamos el objeto creado
AppWord.Quit
Set AppWord = Nothing

el error me lo da en la siguiente rutina, y la verdad es que no se que es lo que significan las ?

'Colocamos el texto en el marcador
DocWord.Bookmarks(?).Select
AppWord.Selection.TypeText Text:=?


Agradecido de antemano a todos.

Saludos

sdemingo
05 de Agosto del 2004
En esas líenas de código que te da el error, lo que estás haciendo es seleccionar un marcador (que previamente deberías tener en el documento) y después escribir en la posición de ese marcador.

Los interrogantes no son interrogantes, supongo que lo sabes......

Si lo único que quieres es imprimr el documento (sin escribir nada en el) haz esto:


Dim AppWord As Object

Set AppWord = CreateObject("word.application")
AppWord.Documents.Open("ruta y nombre del archivo.doc")
AppWord.Application.PrintOut FileName:=("ruta y nombre del archivo.doc")

AppWord.Documents("ruta y nombre del archivo.doc").Close SaveChanges:=0

Set AppWord = Nothing


Saludos
sdemingo