[yousef]

مشكور اخي الكريم لقد اعطيتني طرف الخيط

إقتباس : Public Function print(ByVal dt As DataTable)

Dim e1 As New CrystalReport1
Dim txt1 As TextObject
e1.SetDataSource(dt)
txt1 = e1.ReportDefinition.ReportObjects("text1")
txt1.Text = Form1.Label1.Text
CrystalReportViewer1.ReportSource = e1
Me.CrystalReportViewer1.RefreshReport()
Return Nothing
End Function

اللهم إنا نسألك زيادة في الدين

وبركة في العمر

وصحة في الجسد

وسعة في الرزق

وتوبة قبل الموت

وشهادة عند الموت

ومغفرة بعد الموت

وعفوا عند الحساب

وأمانا من العذاب

ونصيبا من الجنة

وارزقنا النظر إلى وجهك الكريم