Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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