Sub PechatVsehKnig()
    Dim iPath As String, FD As FileDialog, MyFile As String, TempWB As Workbook
    
    'выбор папки
    Set FD = Application.FileDialog(msoFileDialogFolderPicker)
    With FD
        .AllowMultiSelect = False
        .Title = "Укажите папку с файлами"
        .ButtonName = "Выбрать папку"
        If .Show = False Then Exit Sub Else iPath = .SelectedItems(1) & Application.PathSeparator
    End With
    Set FD = Nothing

    MyFile = Dir(iPath & "*.xlsx")
    Do While MyFile <> ""
        If MyFile <> ThisWorkbook.FullName Then
            'Открываем файлы один за другим
            Set TempWB = Workbooks.Open(iPath & MyFile, ReadOnly:=True)
            TempWB.Sheets("Лист1").PrintOut Copies:=1
            TempWB.Close SaveChanges:=False
            'Следующий файл в папке
            MyFile = Dir
        End If
    Loop
End Sub