+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : [سؤال] طباعة كل سجل في الجدول بصفحة (/showthread.php?tid=2026)
الصفحات:
1
2
طباعة كل سجل في الجدول بصفحة - محاسب يوسف - 26-02-14
السلام عليكم لدي جدول موظفين ومسجل بالبيانات
اسم الموظف والراتب
سؤال اريد ان اطبع هذه الجدول
كل سجل اي كل موظف في صفحة مع الحفاظ على نفس الهيدر الخاص بالطباعة هل ممكن ولكم الشكر
RE: طباعة كل سجل في الجدول بصفحة - yousef - 05-03-14
السلام عليكم
ارجوا التوضيح
هل تريد كود طباعة الجدول مع طريقة فصل السجلات كل واحد في صفحة
او طريقة فصل السجلات كل واحد في صفحة فقط ؟
RE: طباعة كل سجل في الجدول بصفحة - مالكـ - 06-03-14
عن طريق التمرير الحقول الى الكريستال ريبورت
RE: طباعة كل سجل في الجدول بصفحة - محاسب يوسف - 17-03-14
اذا ممكن مع العلم استخدم داتا جريد فيو
RE: طباعة كل سجل في الجدول بصفحة - محاسب يوسف - 17-03-14
انا استعمل تقرير بحث فيظهر في داتا جريد ويوجد تيكست فوق داتا جريد اريد ان يظهر في كل صفحة مع سجل واحد من داتا جريد
RE: طباعة كل سجل في الجدول بصفحة - مالكـ - 18-03-14
ارفع مثالك .... ليتم مساعدتك
RE: طباعة كل سجل في الجدول بصفحة - محاسب يوسف - 18-03-14
السلام عليكم
هذا مثال ماخوذ من مشاركة مشكور الاخ الكريم على المشروع
انا ضفت 2تكست
وهناك خيار لطباعة الكل او فقط من سجلات داتا جريد
كيف يمكن طباعة كل سجل في صفحة ووضع صورة للخلفية
هل ممكن
لو سمحتم شرح الطريقة
RE: طباعة كل سجل في الجدول بصفحة - aftfm - 27-03-14
لم يتم الرد على سؤال اخونا محاسب يوسف
نتمنى ان يشاركنا الخبراء في هذا الموضوع للإستفاده
RE: طباعة كل سجل في الجدول بصفحة - yousef - 27-03-14
السلام عليكم
انظر الى البرنامج المرفق وعدل علية حسب المطلوب
كود :
If DataTable1DataGridView.RowCount = 0 Then
MessageBox.Show("لا يوجد بيانات للطباعة")
Return
End Ifكود :
dt = New DataTable
dt.TableName = "grid"
dt.Columns.Clear()
Dim first_name As DataColumn = New DataColumn("name")
first_name.DataType = System.Type.GetType("System.String")
dt.Columns.Add(first_name)
Dim second_name As DataColumn = New DataColumn("phone")
second_name.DataType = System.Type.GetType("System.String")
dt.Columns.Add(second_name)
Dim dr As DataRow
Dim i As Integer
For i = 0 To Me.DataTable1DataGridView.RowCount - 2
dr = dt.Rows.Add
'ملاحظة يجب ان يكون اسم الكولوم مشابة للموجود في الداتا سيت
dr.Item("name") = Me.DataTable1DataGridView.Item(0, i).Value.ToString
dr.Item("phone") = Me.DataTable1DataGridView.Item(1, i).Value.ToString
Next iوجلب البيانات من الداتا جرد
كود :
Dim e1 As New CrystalReport1
e1.SetDataSource(dt)
print.CrystalReportViewer1.ReportSource = e1
print.CrystalReportViewer1.RefreshReport()
print.ShowDialog()وفتح فورم الطباعة الذي يحتوي على كريستال فيور
اما بخصوص طباعة كل سجل بصفحة
موجودة في الكرستال ريبورت وتتم بترك 24 سم اذا كانت A4
لاحظ الكرستال ريبورت
RE: طباعة كل سجل في الجدول بصفحة - aftfm - 27-03-14
السلام عليكم ورحمة الله وبركاته
اخي العزيز yousef
إقتباس :اما بخصوص طباعة كل سجل بصفحة
موجودة في الكرستال ريبورت وتتم بترك 24 سم اذا كانت A4
لاحظ الكرستال ريبورت
هذا في حالة انني اريد طباعة فقط ما بداخل الداتا قريد
لكن لو كان لدي بضع البيانات في القريد والبعض الآخر في مربع نص أو اداة تاريخ أو Lable
وتظهر بيانات في القيد وباقي بيانات السجل في الادوات الأخرى للسجل الواحد
كيف تكون الطباعة كل سجل في صفحة