السلام عليكم ورحمة الله,, وكل عام وأنتم بألف خير
أبحث عن طريقة طباعة محتوى الداتا جريد في تقرير من نوع Report Viewer في VB.net 2005 وقد أرفقت المثال حتى يكون سؤالي واضح حيث انني بحثت عن حل لطباعة محتوى الداتا جريد في مثالي المرفق ولم أجده,, آمل منكم مساعدتي في توضيح طريقة طباعة التقرير حسب مثالي المرفق
وأشكركم جزيل الشكر,,
أرجو منكم سرعة الرد حيث انني مضطر لهذا الحل,,,
أشكرك أخي (مبرمج بلا حدود) لكن احتاج لطريقة الطباعة باستخدام الكود حيث انني حاولت عدة مرات وحتى هذه اللحظة ابحث عن الحل وقد ارفقت المثال مع قاعدة البيانات,, أشكرك لاهتمامك وكل عام وانتم بألف خير
(17-07-15, 03:24 AM)mjumah1985 كتب : [ -> ]أشكرك أخي (مبرمج بلا حدود) لكن احتاج لطريقة الطباعة باستخدام الكود حيث انني حاولت عدة مرات وحتى هذه اللحظة ابحث عن الحل وقد ارفقت المثال مع قاعدة البيانات,, أشكرك لاهتمامك وكل عام وانتم بألف خير
الله يحفظكـ اخي والله يتقبل الطاعات
اعذرني فأنا ايضاً ابحث عن طريق لطباعة تقرير ولكن تقرير يحوي على صورة ايضا وليس نصوص فقط
حسبت ان ما وضعته سوف تنفعكـ
سبحان الله بدأت اشعر ان تقارير الطباعة بالفيجوال 6 ابسط ههههههه
سبحان الله نسأل الله ان ينفعنا باحد الاخوه هنا ويرشدنا ويعلمنا من فضل ما علمه الله
أتمنى من الإخوة الأعضاء أن يهتموا بالكود والابتعاد عن الداتاسيت
فالأغلبة يفضل العمل بالكود وليس المعالجات
ونحن في حاجة إلى ذلك
إلى ذلك الحين
تفضل هدا الكود فإنه يفي بالغرض
PHP كود :
Dim rep_param() As ReportParameter
Dim i As Integer = 0
Dim s1 As String = "", s2 As String = "", s3 As String = ""
For i = 0 To dataGridView1.RowCount - 2 'si le add datagrid est active
s1 += dataGridView1.Rows(i).Cells(0).Value.ToString() & Environment.NewLine & Environment.NewLine
s2 += dataGridView1.Rows(i).Cells(1).Value.ToString() & Environment.NewLine & Environment.NewLine
s3 += dataGridView1.Rows(i).Cells(2).Value.ToString() & Environment.NewLine & Environment.NewLine
Next
rep_param = New ReportParameter(dataGridView1.Columns.Count - 1) {}
rep_param(0) = New ReportParameter("id", s1)
rep_param(1) = New ReportParameter("name", s2)
rep_param(2) = New ReportParameter("age", s3)
Me.ReportViewer1.LocalReport.SetParameters(rep_param)
Me.ReportViewer1.RefreshReport()