Quote Originariamente inviata da oregon Visualizza il messaggio
Qual è il codice di cui parli (stampa e chiusura di Word)?

Quale versione di Word e di libreria Interop?
codice:
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'importo i dati dalla schermata di inserimento
Dim nome AsString = UCase(dataentry.TextBox1.Text)


'CONTROLLO ESISTENZA FILE NEL PC

If IO.File.Exists(Application.StartupPath & "\prova.docx") = FalseThen
            MsgBox("IL FILE RICHIESTO PER LA STAMPA NON ESISTE " & vbCrLf & "CONTATTARE IL RESPONSABILE DEL SOFTWARE")
Application.Exit()

EndIf

'APERTURA FILE E SCRITTURA NEI BOOKMARK DEI VALORI

Dim objword AsNew Microsoft.Office.Interop.Word.Application
        objword.Visible = False
        objword.Documents.Open(Application.StartupPath & "\prova.docx")

        objword.Selection.Font.Bold = True
        objword.Selection.Font.Size = 15

Dim printdialog AsNewPrintDialog
Dim result AsDialogResult = printdialog.ShowDialog


        objword.ActiveDocument.Bookmarks.Item("NOME").Select()
        objword.Selection.Text = nome
        objword.Selection.Bookmarks.Add("NOME")


If (result = DialogResult.OK) Then
                       objword.PrintOut()
EndIf

        objword.ActiveDocument.PrintOut(Background:=True)
        objword.Documents.Close(SaveChanges:=Nothing)


'CONTROLLO EFFETTUAZIONE STAMPA E CHIUSURA FILE

If MsgBox("STAMPA ESEGUITA CORRETTAMENTE ?", vbYesNo) = vbYes Then


objword.Documents.Close(SaveChanges:=Nothing)
            objword.Quit()

Application.Exit()
Else
Try
Catch ex AsException
                MsgBox(ex.Message)
                objword.Documents.Close(SaveChanges:=Nothing)
                objword.Quit()
EndTryEndIf
EndSub
le versioni di word variano tra la 2010 e la 2007 a seconda dei pc.
interop 12.0