Visualizzazione dei risultati da 1 a 10 su 13

Hybrid View

  1. #1
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    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.

  2. #2
    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

  3. #3
    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è

  4. #4
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    Quote Originariamente inviata da eurostar_italia Visualizza il messaggio
    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.
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  5. #5
    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

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.