Puedes hacerlo de varia maneras, con un Data Report, (busca en la ayda de visual), o mediante un archivo de Word, primero creas una plantilla en word y le das el nombre que quieras y luego le añades al programa de visual el siguiente código, para el boton cmdimprimirword
Private Sub cmdimprimirword_Click()
'crear la variable word
Dim objDoc As Word.Document
'inicializar word y hacerlo visible
Set objword = New Word.Application
'hacemos invisible el documento de word
objword.Visible = False
'crear un nuevo documento utilizando la plantilla anteriormente creada
Set objDoc = objword.Documents.Add("c:\cgutierrez\plantilla4.dot")
'convertir este nuevo documento en el documento activo
objDoc.Activate = True
'no posicionamos en la primera marca
'insertar salto de línea
'objDoc.ActiveWindow.Selection.InsertParagraphAfter
'objDoc.ActiveWindow.Selection.InsertParagraphAfter
'insertar el texto con el contenido de lo que hay en el campo correspondiente del formulario activo
'poner y quitar las neguillas
objDoc.ActiveWindow.Selection.Font.Bold = wdToggle
objDoc.ActiveWindow.Selection.GoTo what:=wdGoToBookmark, Name:="uno"
objDoc.ActiveWindow.Selection.Font.Bold = wdToggle
objDoc.ActiveWindow.Selection.InsertAfter (txtDni.Text)
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.Font.Bold = wdToggle
objDoc.ActiveWindow.Selection.GoTo what:=wdGoToBookmark, Name:="nombre"
objDoc.ActiveWindow.Selection.Font.Bold = wdToggle
