Public Sub PrintDoc()
   On Error GoTo PrintDoc_Error
     Dim obWord As Object
     Dim obWindow As Object
     
    Forms!MainPanel.SprField = DLookup("SprFiles", "tblSpr", "SprID = " & 1)
    Forms!MainPanel.SprField.Action = acOLEActivate
    Set obWord = GetObject(, "Word.Application")
    Set obWindow = obWord.ActiveDocument.ActiveWindow
    obWindow.WindowState = 1
    obWord.WindowState = 1
    obWord.Activate

   On Error GoTo 0
   Exit Sub

PrintDoc_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure PrintDoc of Module Module1"
End Sub