13/07/14 16:22
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 :
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
codice:
nb. le versioni di office variano dalla 2007 alla 2010 sui pc in oggetto
ho usato un interop.word 12.0
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 :
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
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 DEL MODELLO WORD SU CUI SCRIVERE 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) '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() EndTry EndIf EndSub
nb. le versioni di office variano dalla 2007 alla 2010 sui pc in oggetto
ho usato un interop.word 12.0
Ultima modifica effettuata da eurostar_italia 13/07/14 16:23
aaa