Dim wordapp As Word.Application = New Word.Application
        If wordapp Is Nothing Then
            Dim txt As String = "Verbindung zu Word nicht möglich"
            MsgBox(txt)
            Exit Sub
        End If
 
        'Application
        With wordapp
            .DisplayAlerts = False
            .Visible = False
 
            'Dokument laden
            .Documents.Open(...)
 
            With .ActiveDocument
                .FormFields(...).Result = ...
 
            End With
 
            .ActivePrinter = ...
 
            .PrintOut()
 
            .Documents.Close( _
              Microsoft.Office.Interop.Word.WdSaveOptions.wdDoNotSaveChanges)
            .Quit()
 
        End With

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]