
Imprimir documentos de word desde VB
Publicado por Ancalo (17 intervenciones) el 27/11/2003 17:39:16
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
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
Valora esta pregunta


0