Dim Ragio As String = Assemblatore.Anagrafica.TxtRagione.Text
         Dim Ind As String = Assemblatore.Anagrafica.TxtInd.Text
         Dim Loc As String = Assemblatore.Anagrafica.TxtLoc.Text
         Dim Cap As String = Assemblatore.Anagrafica.TxtCap.Text
         Dim Prov As String = Assemblatore.Anagrafica.TxtProv.Text
         Dim Iso As String = Assemblatore.Anagrafica.TxtIso.Text
         Dim Piva As String = Assemblatore.Anagrafica.TxtPiva.Text
         Dim CodF As String = Assemblatore.Anagrafica.TxtCf.Text
         Dim Tel As String = Assemblatore.Anagrafica.TxtTel.Text
         Dim Mail As String = Assemblatore.Anagrafica.TxtMail.Text

         Dim xlApp As Microsoft.Office.Interop.Excel.Application ' Riferimento all'applicazione Excel
         Dim xlBook As Microsoft.Office.Interop.Excel.Workbook ' Riferimento al Workbook
         Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet ' Riferimento al Worksheet
           xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass
           xlBook = xlApp.Workbooks.Open(Me.ExcelFilePath)
           xlSheet = xlBook.Worksheets("PREVENTIVO")
           xlSheet.Activate()
           xlSheet.Cells(4, 44) = Ragio
           xlSheet.Cells(5, 44) = Ind
           xlSheet.Cells(6, 44) = Cap
           xlSheet.Cells(6, 51) = Loc
           xlSheet.Cells(6, 81) = Prov

        Dim prev As String
        xlSheet.PrintOutEx(, , , True)
        prev = "C:\Prev.xls"
        xlBook.SaveAs(prev, , , , , , , , , , , )
               xlApp.Quit()
               xlBook.Save()
          xlSheet = Nothing
          xlBook = Nothing
          xlApp = Nothing
            MessageBox.Show("Il file è stato salvato in C:\")
         Dim processo As New Process
        processo.StartInfo.FileName = "C:\Prev.xls"
        processo.StartInfo.Verb = "Print"
        processo.Start()