Private Sub CommandButton21_Click() Dim sMyDir As String Dim sDocName As String ' The path to obtain the files. sMyDir = "\Folder Path" sDocName = Dir(sMyDir & "*.DOCX") While sDocName <> "" ' Print the file. Application.PrintOut FileName:=sMyDir & sDocName ' Get next file name. sDocName = Dir() Wend End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.