vb.net file exe condiviso,stampa word

[eurostar_italia]

salve,

ho un banale exe situato in un pc (chiamiamolo 1) in rete,con la cartella condivisa.
accedo a questo pc da un altro (chiamiamolo pc2) e dalla cartella condivisa lancio l'exe.
questo genera la stampa di un file word presente sempre nella cartella condivisa.
ho due quesiti :
1) eventualmente quante sessioni possono essere lanciate contemporaneamente di un exe condiviso ?
2) perchè la stampa mi genera un errore ?
in pratica nonostante mi riconosca la stampante del pc che sto usando,cmq non stampa.
può essere perchè la stampa cmq si riferisce al modulo che è sul pc1?
grazie
questo è il codice che uso per la stampa

 
   
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'importo i daty dalla schermata di inserimento
        Dim nome As String = UCase(dataentry.TextBox1.Text)
       
 
        Dim path As String = System.Configuration.ConfigurationManager.AppSettings("pathdocumento")
        Dim objword As New 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 As New PrintDialog
        Dim result As DialogResult = printdialog.ShowDialog
 
       
 
        objword.ActiveDocument.Bookmarks.Item("NOME").Select()
 
        objword.Selection.Text = nome
 
        objword.Selection.Bookmarks.Add("NOME")
 
 
 
        If (result = DialogResult.OK) Then
            'objword.ActiveDocument.PrintOut(Background:=True)
            objword.PrintOut()
        End If

[eurostar_italia]

salve,

ho un banale exe situato in un pc (chiamiamolo 1) in rete,con la cartella condivisa.
accedo a questo pc da un altro (chiamiamolo pc2) e dalla cartella condivisa lancio l'exe.
questo genera la stampa di un file word presente sempre nella cartella condivisa.
ho due quesiti :
1) eventualmente quante sessioni possono essere lanciate contemporaneamente di un exe condiviso ?
2) perchè la stampa mi genera un errore ?
in pratica nonostante mi riconosca la stampante del pc che sto usando,cmq non stampa.
può essere perchè la stampa cmq si riferisce al modulo che è sul pc1?
grazie
questo è il codice che uso per la stampa

 
   
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'importo i daty dalla schermata di inserimento
        Dim nome As String = UCase(dataentry.TextBox1.Text)
       
 
        Dim path As String = System.Configuration.ConfigurationManager.AppSettings("pathdocumento")
        Dim objword As New 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 As New PrintDialog
        Dim result As DialogResult = printdialog.ShowDialog
 
       
 
        objword.ActiveDocument.Bookmarks.Item("NOME").Select()
 
        objword.Selection.Text = nome
 
        objword.Selection.Bookmarks.Add("NOME")
 
 
 
        If (result = DialogResult.OK) Then
            'objword.ActiveDocument.PrintOut(Background:=True)
            objword.PrintOut()
        End If

[oregon]

1) puoi eseguire l'exe quante volte vuoi

2) quale errore in particolare?

[eurostar_italia]

in pratica mi chiede di selezionare la stampante,la individuo correttamente come quella collegata al pc due,ma poi non stampa.
nel codice ho inserito una msgbox che mi chiede "stampa eseguita correttamente",alla risposta negativa esce una schermata di errore.
il codice dell'errore (solo la prima parte è il seguente")

************** Testo dell'eccezione **************
System.Runtime.InteropServices.COMException (0x800A1066): Comando fallito
in Microsoft.Office.Interop.Word.Documents.Close(Obje ct& SaveChanges, Object& OriginalFormat, Object& RouteDocument)
in WindowsApplication1.riepilogodati.Button2_Click(Ob ject sender, EventArgs e)
in System.Windows.Forms.Control.OnClick(EventArgs e)
in System.Windows.Forms.Button.OnClick(EventArgs e)
in System.Windows.Forms.Button.OnMouseUp(MouseEventAr gs mevent)
in System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
in System.Windows.Forms.Control.WndProc(Message& m)
in System.Windows.Forms.ButtonBase.WndProc(Message& m)
in System.Windows.Forms.Button.WndProc(Message& m)
in System.Windows.Forms.Control.ControlNativeWindow.O nMessage(Message& m)
in System.Windows.Forms.Control.ControlNativeWindow.W ndProc(Message& m)
in System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

[oregon]

Qual è il codice di cui parli (stampa e chiusura di Word)?

Quale versione di Word e di libreria Interop?

[eurostar_italia]

Qual è il codice di cui parli (stampa e chiusura di Word)?

Quale versione di Word e di libreria Interop?

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

[eurostar_italia]

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è

[oregon]

le versioni di word variano tra la 2010 e la 2007 a seconda dei pc.
interop 12.0

sembra un errore nella chiusura del file ma non capisco perchè[/QUOTE]

Metti visible a true ed esegui il codice linea per linea per capire come si comporta e dove scatta esattamente l'errore.

[eurostar_italia]

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

[oregon]

Prova a modificare il codice. Al posto di
Application.StartupPath

metti il percorso della cartella condivisa ed esegui da Visual Studio.