Alle Word-Dokumente in einem Ordner drucken u Fehler ignorieren

Public Class Form1
    Dim MSWord As Word.Application
    Dim WordDoc As Word.Document
    Dim strPfadOrdner As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Label1.Text = "Ausdruck läuft, bitte warten"  
        Button1.Enabled = False
        Me.Refresh()

        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            strPfadOrdner = FolderBrowserDialog1.SelectedPath


            MSWord = New Word.Application


            Dim diDirectory As New IO.DirectoryInfo(strPfadOrdner)
            Dim filesAll As System.IO.FileInfo() = diDirectory.GetFiles("*.doc")  
            Dim intAnzahlZuPruefenderDateien = filesAll.Count


            For Each filesOne As IO.FileInfo In filesAll

                WordDoc = New Word.Document

                WordDoc = MSWord.Documents.Open(strPfadOrdner & "\" & filesOne.ToString)  

                ' If you want the user to see it ...   
                'MSWord.WindowState = Word.WdWindowState.wdWindowStateNormal  
                'MSWord.Visible = True  
                WordDoc.PrintOut()
                'WordDoc.PrintOut(Background:=True, _  
                '    Append:=False, _  
                '    Range:=Word.WdPrintOutRange.wdPrintCurrentPage, _  
                '    Item:=Word.WdPrintOutItem.wdPrintDocumentContent, _  
                '    Copies:="1", _  
                '    Pages:="1", _  
                '    PageType:=Word.WdPrintOutPages.wdPrintAllPages, _  
                '    PrintToFile:=False, _  
                '    Collate:=True, _  
                '    ManualDuplexPrint:=False)  

                Threading.Thread.Sleep(1000) 'Millisekunden  

                MSWord.Documents.Close(Word.WdSaveOptions.wdDoNotSaveChanges)
                'WordDoc = Nothing  


            Next
        End If


        Button1.Enabled = True
        Label1.Text = ""  
        MSWord = Nothing


    End Sub