Access - Problemas al imprimir con RUNTIME ACCESS

En un formulario tengo un botón que al pulsarlo añade los valores de los campos del registro actual a una plantilla de Word y posteriormente lo imprime... a través de este código:

Private Sub Comando19_Click()
Const documento = "plantilla.dotx"
Dim directorio, strPROP
Dim Escrito As Object
directorio = Application.CurrentProject.Path
Set Escrito = CreateObject("Word.Application")
With Escrito
.Visible = True
.Documents.Add directorio & "\" & documento
End With


With Escrito.ActiveDocument
For Each strPROP In .CustomDocumentProperties
Select Case strPROP.Name
Case "Unidad_Env": strPROP.Value = Me.UNIDAD_ENV
Case "Fecha": strPROP.Value = Format(Me.FECHA, "mm/dd/yyyy")
Case "N_Salida": strPROP.Value = Me.N__SALIDA
End Select
Next
End With
With Escrito
.ActiveDocument.Fields.Update
.ActiveDocument.PrintOut
.Quit
End With
Set Escrito = Nothing
MsgBox "Documento generado"
End Sub


Este código no da ningún error si se ejecuta desde un PC con Access instalado... sin embargo si se hace desde un PC que tiene sólo el RUNTIME ACCESS sale un mensaje de error y no hay manera de imprimir el documto generado... ¿Alguna pista de cómo resolver este problema?... Bueno, hay algunas veces que sí se imprime pero la mayoría de las veces no.

Gracias de antemano