Qual è il codice di cui parli (stampa e chiusura di Word)?
Quale versione di Word e di libreria Interop?
Qual è il codice di cui parli (stampa e chiusura di Word)?
Quale versione di Word e di libreria Interop?
No MP tecnici (non rispondo nemmeno!), usa il forum.
le versioni di word variano tra la 2010 e la 2007 a seconda dei pc.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
interop 12.0
le versioni di word variano tra la 2010 e la 2007 a seconda dei pc.
interop 12.0[/QUOTE]
sembra un errore nella chiusura del file ma non capisco perchè
Metti visible a true ed esegui il codice linea per linea per capire come si comporta e dove scatta esattamente l'errore.
in realtà funziona quando lo compilo e lo testo sul visual studio è quando lo lancio dal pc di rete che si crea il problema