Access - imprimir mas de un registro en word

Tengo un documento de word combinado con una base de datos de access 2000. He conseguido imprimir el documento unicamente pulsando un boton (codigo):

Dim x As Object
Dim p As String
Set x = CreateObject("word.application")
x.Visible = False
p = "xxxxxx"
x.ActivePrinter = p
x.Documents.Open "d:\particulares.doc"
x.ActiveDocument.PrintOut

Pero tengo un problema: El documento tiene 2 registros combinados pero solo me imprime el primero de los registros.

Como hago para que me imprima todos los registros que existan el la combinacion?????

Un saludo.

Para imprimir todos los registros combinados en el documento de Word, necesitas agregar un bucle para recorrer los registros y ejecutar la impresión para cada uno de ellos. Aquí te dejo un ejemplo de cómo hacerlo:


Este código recupera los registros de una consulta y los recorre uno por uno usando un bucle While. Dentro del bucle, puedes reemplazar los campos del documento de Word con los valores del registro actual. Una forma de hacerlo es usar bookmarks en el documento y asignarle el valor del campo correspondiente. Después de reemplazar los campos, el código ejecuta la impresión del documento. Finalmente, el código cierra el recordset y libera la memoria del objeto.