Private Sub cmd_Erstellen_Click()
Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    Word.Documents.Open FileName:=App.Path & "\Rechnungsvorlage.doc"
'Briefkopf
        Word.ActiveDocument.FormFields("Firma2").Result = _
          frm_Firmendaten.Text1.Text
'Printing Document
   objWord.PrintOut Range:=wdPrintAllDocument, _
                           Item:=wdPrintDocumentContent, _
                          Background:=False
'Closing Document
      Word.ActiveDocument.Close SaveChanges:=False
    objWord.Quit
    Set objWord = Nothing
end sub