[/SRC]
Sub prikaz()
Dim objword As Object
Dim f As String
Dim fl, fld As Folder
Dim fls As Files

Dim flds As Folders
Dim d As Word.Document
Dim fs As New FileSystemObject
Dim s As File
Set fl = fs.GetFolder("V:\11\íà ïå÷àòü\")
Set flds = fl.SubFolders
' Set fld = flds(0)
For Each fld In flds
'MsgBox (fld.Name)
'namefl = fld.Name
Set fls = fld.Files
f = "V:\11\на печать\"
Set objword = CreateObject("word.application")
With objword
    .Visible = True
End With
For Each s In fls
'MsgBox (s.Type)
If s.Type = "Документ Microsoft Word" Or s.Type = "Äîêóìåíò Microsoft Word 97-2003" Or s.Type = "Формат RTF" Then
f = f + fld.Name + "\" + s.Name

'MsgBox (f)
Set d = objword.Documents.Open(f)
d.PrintOut
d.Close False
Set d = Nothing
'MsgBox (s.Type)
f = "V:\11\на печать\"
End If
Next
Next
objword.Quit
Set objword = Nothing
End Sub
[SRC vba]