Private Sub btnPrintWh4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnPrintWh4.Click
 
 
        Dim w_App As New Word.Application()
 
        Dim counter As Integer
 
          For counter = 0 To Me.DSWH4.TBLNUTZER.DefaultView.Count() - 1
 
            With w_App
 
                'Initialisierung der WordAplikation
                '
                .PrintPreview = False
                .Visible = False
                .Documents.Open(filename:="c:\serie.doc")
 
                    ....
 
                .PrintOut()
                .Documents.Close(False)
 
            End With
 
        Next
 
        CType(w_App.Application, Word._Application).Quit()
        w_App = Nothing
 
    End Sub

       .Documents.Close(False)