Ciao a tuti... sto scrivendo una piccola DLL che mi compila dei bookmarks in word e poi mi manda in stampa il file dopo averlo salvato, ma ho un problema: il file viene generato e salvato, ma quando viene lanciata la stampa il file va in coda e poi si elimina da solo dalla coda.
Sapete dirmi dove sbaglio? Questo è il codice.
codice:
Option Explicit

Private objWord As Word.Application

Private Sub Class_Initialize()
  Set objWord = New Word.Application
End Sub

Public Function stampaRicevuta(str As String, stampante As String, url_1 As String, url_2 As String)
 On Error Resume Next
 Dim objDoc As Word.Document
 Dim arr As Variant
 arr = Split(str, "§")
 Set objDoc = objWord.Documents.Open(url_1)
 objDoc.SaveAs (url_2)
 With objWord.ActiveDocument
 .Bookmarks("società").Range.Text = arr(0)
 .Bookmarks("codSoc").Range.Text = arr(1)
 .Bookmarks("ind").Range.Text = arr(2)
 .Bookmarks("cap").Range.Text = arr(3)
 .Bookmarks("citta").Range.Text = arr(4)
 .Bookmarks("marca").Range.Text = arr(5)
 .Bookmarks("tel").Range.Text = arr(6)
 .Bookmarks("modello").Range.Text = arr(7)
 .Bookmarks("data").Range.Text = arr(8)
 .Bookmarks("prov").Range.Text = arr(9)
 .Bookmarks("matricola").Range.Text = arr(10)
 .Bookmarks("codRip").Range.Text = arr(11)
 .Bookmarks("accessori").Range.Text = arr(12)
 .Bookmarks("note").Range.Text = arr(14)
 .Bookmarks("dif1").Range.Text = arr(15)
 .Bookmarks("xchi").Range.Text = arr(16)
 If arr(13) = "1" Then
  .Bookmarks("si").Range.Text = UCase(" x")
  .Bookmarks("no").Range.Text = " "
 Else
  .Bookmarks("no").Range.Text = UCase(" x")
  .Bookmarks("si").Range.Text = " "
 End If
 End With
 objDoc.Save
 objWord.ActivePrinter = stampante
 objWord.PrintOut (False)
 objDoc.Close
 Dim i As Integer

 objWord.Quit
 stampaRicevuta = "Stampa riuscita su " + stampante
 
If Err.Number <> 0 Then
 objWord.Quit
 Set objWord = Nothing
 stampaRicevuta = "Stampa non riuscita su " + stampante + "
Descrizione Errore: " + Err.Description
End If
End Function

Private Sub Class_Terminate()
 'objWord.Quit
 Set objWord = Nothing
End Sub
Grazie
Rino