[salahalmasry]

لية تشكرني ردك كان سريع وكمان حصلتلي طلبي بالظبط يعني انا الي اشكرك

---

بس فية مشكلة التجربة نجحت بس الاكسيل بيكون مفتوح في التاسك مانيجر والملف بيكون مفعل حاولت اكتب الكود دة
xlWorkSheet = Nothing
xlWorkBook.Save()
xlApp.Quit()
بس مظبطش هكتب الكود الي اشتغل كلة لو حد عندة حل ياريت يفيدني

Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form2
Dim xlApp As New Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'~~> Opens Source Workbook. Change path and filename as applicable
xlWorkBook = xlApp.Workbooks.Open("C:\Print.xlsx")

'~~> Display Excel
xlApp.Visible = False

'~~> Set the source worksheet
xlWorkSheet = xlWorkBook.Sheets("sheets")
Dim Sa = TextBox1.Text
'~~> Printing the Excel Sheet
xlWorkSheet.PrintOut(From:=1, To:=7, Copies:=Sa, Collate:=True)
xlWorkSheet = Nothing
xlWorkBook.Save()
xlApp.Quit()

End Sub




End Class