Function PrintPageVertraege () As String
...
Dim word As New Word.Application    
Dim wordDoc As Word.Document        
Dokumentname = "meinformular01.doc" 
Word.Visible = False
wordDoc = word.Documents.Open(FileName:=Application.StartupPath & _
  Dokumentname.ToString)
wordDoc.Activate()
 
word.ActiveDocument.FormFields("wordName01M").Result = druckMieterName01
…usw…
word.PrintOut(Background:=False) 
word.ActiveWindow.Visible = False
word.ActiveDocument.Saved = True
word.Quit()
...
End Function