Access - Imprimir con Word un registro de Access sin abrir Word

Hola amigos, necesito ayuda.

Tengo una BD de Access con cuyos datos elaboro informes en Word utilizando la combinación de correspondencia. Para imprimir abro Word y desde este busco el número de registro que deseo sacar por impresora.

Mi pregunta es, puedo desde el formulario de Access, estando posicionado en el registro a imprimir sacar el informe por impresora sin necesidad de abrir Word?

Muchas gracias y un saludo.

No te puedo contestar a tu solicitud porque nunca he utilizado ese metodo, pero si decirte que si el informe no es algo especial, con access puedes hacer magnificos informes y te lo digo por experiencia que he realizado facturas, informe personalizado del registro activo etc....

Son varios archivos los que utilizo, y access no me sirve para esto, ya que no justifica el texto, y tampoco puedes dar formato a una palabra que forma parte de un bloque de texto en una variable.

En un Módulo crea el procedimiento:
'*******************************************************************************
'* EscribeCadenaEnMarcadorWord
'* escribe el texto pasado como parámetro en el marcador indicado del documento
'* Word abierto en la instancia Word correspondiente
'* Argumentos: strMarcador => marcador en que se insertará la tabla
'* strCadena => texto a escribir
'* uso: EscribeCadenaEnMarcadorWord
'* ESH 31/08/07 20:15
'*******************************************************************************

Function EscribeCadenaEnMarcadorWord(strMarcador As String, strCadena As String) As Boolean

On Error GoTo EscribeCadenaEnMarcadorWord_TratamientoErrores

WordApp.ActiveDocument.Bookmarks(strMarcador).Select
WordApp.Selection.TypeText strCadena

' confirmo que el proceso finalizó correctamente
EscribeCadenaEnMarcadorWord = True

EscribeCadenaEnMarcadorWord_Salir:
On Error GoTo 0
Exit Function

EscribeCadenaEnMarcadorWord_TratamientoErrores:
MsgBox "Error " & Err & " en proc.: EscribeCadenaEnMarcadorWord de Documento VBA: Form_frmPruebas (" & Err.Description & ")", vbCritical + vbOKOnly, "ATENCION"
Resume EscribeCadenaEnMarcadorWord_Salir
Resume Next
End Function ' EscribeCadenaEnMarcadorWord

y en el formulario crea el objeto, la llamada y etc.

Private Sub cmdescrito_Click()
Dim strContrato As String, _
rst As DAO.Recordset, _
strSQL As String



On Error GoTo cmdescrito_Click_TratamientoErrores

DoCmd.Hourglass True

' selecciono la "plantilla"
strPlantilla = CurrentProject.Path & "\Plantillas\<nombreplantilla.doc"
' abro un recordset con los datos del contrato en cuestión
strSQL = "SELECT * from <nombretabla where Id = " & Me!Id & ""

Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
' si tiene datos, abro la "plantilla" de contrato e inserto los datos en sus distintos marcadores

If Not (rst.EOF And rst.BOF) Then

strContrato = CurrentProject.Path & "\Expedientes\" & Me!expediente & "\<nombredocumento>" & rst!expediente & ".doc"
txtFile = strContrato

Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open strPlantilla


EscribeCadenaEnMarcadorWord "nombremarcador", rst!<dato1>

' Escribe una linea por cada dato que aparece en el documento de Word.

' guardo el documento
WordApp.ActiveDocument.SaveAs strContrato
' ' imprimo el contrato
' WordApp.ActiveDocument.PrintOut , Copies:=3
End If


cmdescrito_Click_Salir:
' cierro todo
CierraRecordsetDAO rst
WordApp.ActiveDocument.Saved = True
FollowHyperlink strContrato
'WordApp.Quit
Set WordApp = Nothing

Close
On Error GoTo 0
DoCmd.Hourglass False
Close

Exit Sub

cmdescrito_Click_TratamientoErrores:
MsgBox "Error " & Err & " en proc.: cmdescrito_Click de Documento VBA: Form_frmContratos (" & Err.Description & ")", vbCritical + vbOKOnly, "ATENCION"
Resume cmdescrito_Click_Salir
End Sub

En la plantilla del documento (que es un documento Word , no plantilla) tienes que introducir los marcadores con su nombre (Insertar - Marcadores)
y ya está. Espero que te sirva de algo

Hola amigo sabes quiero hacer algo similar a esta consulta... pero no se a que te refieres cuando escribes "EscribeCadenaEnMarcadorWord"
Muchas gracias

Dime tu correo y te envio una BD MDB con un ejemplo.Mi correo es antperlopARROBAono.com