Ciao ,
ho costruito la mia applicazione in VBA x Word e stampavo un report Excel .

Il codice che ho utilizzato è il seguente :

codice:
Dim Xl As Excel.Application  'dichiaro un nuova applicazione excel
Dim XlSh As Excel.Sheets     'dichiaro il foglio excel
Set Xl = New Excel.Application ' apro l'applicazione excel
Xl.Visible = False           ' non visualizzo excel
Xl.Workbooks.Open              FileName:="C:\utility\Richieste\Report\Stampa_Richiesta.xls" ' apro il foglio che utilizzo per stampare il report 
' ============================================================================= '
' Aggiorno i dati nel report excel prima di procedere alla stampa               '
' ============================================================================= '
With Stp_Richiesta ' stp_richiesta è un type che contiene informazioni
    Xl.Range("C7").Value = .Stp_Id_Richiesta
    Xl.Range("I7").Value = .Stp_Dt_Richiesta
    Xl.Range("C9").Value = Trim(.Stp_Ufficio)
    Xl.Range("C10").Value = Trim(.Stp_Cognome) & Space(2) & Trim(.Stp_Nome)
    Xl.Range("C13").Value = Trim(.Stp_Descrizione)
    Xl.Range("D34").Value = .Stp_Dt_Inizio_Lav
    Xl.Range("I34").Value = .Stp_Dt_Fine_Lav
    Xl.Range("D36").Value = .Stp_Dt_Consegna
    Xl.Range("D38").Value = Trim(.Stp_Sviluppatore)
    Xl.Range("D40").Value = Trim(.Stp_Linguaggio)
    Xl.Range("D43").Value = Trim(.Stp_Dir_Save_Pgm)
    Xl.Range("D46").Value = Trim(.Stp_Pgm)
    Xl.Range("D49").Value = Trim(.Stp_Dir_Save_Dati)
    Xl.Range("D51").Value = Trim(.Stp_Dati)
End With
Xl.Sheets.PrintOut ' stampo il foglio aggiornato 
Xl.ActiveWindow.Close (0) ' chiudo la finestra excel attiva
Xl.Quit                   ' chiudo excel
Set Xl = Nothing
End Sub

Se proprio ti dovesse risultare utili fammelo sapere al max ti posto il progetto !