Dim m_wdApp As Word.Application
m_wdApp = New Word.Application
 m_wdApp.Visible = False
 
m_wdApp.Documents.Open(Application.StartupPath & "\ezkv.rtf")
 
 m_wdApp.Selection.Find.ClearFormatting()
 
       'DOKUMENT WIRD GEFÜLLT
 
        m_wdApp.Application.PrintOut(, , , , , , , 2)
        While m_wdApp.Application.BackgroundPrintingStatus > 0
            Application.DoEvents()
           ' System.Threading.Thread.Sleep(100)
 
        End While
 
        m_wdApp.Documents.Close(False)
        m_wdApp.Application.Quit(False)