Cliccando sul pulsante mi apre il file:

Dim appExcel As New Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet
Set cartExcel = Excel.Workbooks.Open(App.Path & "\Prova.xls")
appExcel.Visible = True

Ora stampo il contenuto
Adesso lo chiudo e dico di non salvare.

Lui me lo chiudo ma se ripremo il pulsante non mi riapre la pagina