Sub 폴더내모든파일인쇄()
    
    Dim WB As Workbook
    Dim 경로 As Variant
    Dim 파일 As String
    
    On Error Resume Next
    
        With Application.FileDialog(msoFileDialogFolderPicker)
            .Show
            경로 = .SelectedItems(1)
        End With

        If Err.Number <> 0 Or 경로 = False Then Exit Sub

    On Error GoTo 0

    파일 = Dir(경로 & "\*.xls*")
    
    Application.ScreenUpdating = False
    
        Do While 파일 <> ""
        
            Set WB = Workbooks.Open(Filename:=경로 & "\" & 파일)
            
            With WB
                .PrintOut
                .Close SaveChanges:=False
            End With
            
            파일 = Dir
        
        Loop
    
    Application.ScreenUpdating = True
    
End Sub
