MyPath = UserForm1.TextBox1.Text & "\"  ' Папка, из которой печатаем

Userform1.Textbox1.text&"\"

Sub Печать_1_го_лист_из_папки(s As String, s2 As String, s3 as String)
    Dim MyPath$, MyFileName$, bk As Workbook
    Application.ScreenUpdating = False
    MyPath = s & "\"  ' Папка, из которой печатаем
    MyFileName = Dir(MyPath & s2)
    Do While MyFileName <> ""
        If Left$(MyFileName, 2) <> "~$" Then ' Исключаем временные файлы Excel
            Set bk = Workbooks.Open(Filename:=MyPath & MyFileName, UpdateLinks:=False, ReadOnly:=True)
            bk.Worksheets(1).PrintOut Copies:=s3
            bk.Close SaveChanges:=False
        End If
        MyFileName = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "Готово!", vbInformation
End Sub