سؤال في الطباعة باستخدام data grid view - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : سؤال في الطباعة باستخدام data grid view (/showthread.php?tid=31194) |
سؤال في الطباعة باستخدام data grid view - Hassan.syria - 03-09-19 Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Da = New SqlDataAdapter("select * from TABLE_DATA where data like '%" & TextBox1.Text.Trim & "%'", Con) Da.Fill(Dt) DGV1.DataSource = Dt For i = 0 To Dt.Rows.Count + 1 Select Case i Case 1 e.Graphics.DrawString(Dt.Rows(i)("name"), fn, Brushes.Black, 520, 249, sf) e.Graphics.DrawString(Dt.Rows(i)("FAMILY"), fn, Brushes.Black, 480, 249, sf) e.Graphics.DrawString(Dt.Rows(i)("DATA_BIRH"), fun, Brushes.Black, 480, 280, sf) e.Graphics.DrawString(Dt.Rows(i)("GOVERM"), fun, Brushes.Black, 400, 280, sf) e.Graphics.DrawString(Dt.Rows(i)("TITLE"), fun, Brushes.Black, 480, 301, sf) e.Graphics.DrawString(Dt.Rows(i)("PHONEE"), fun, Brushes.Black, 400, 302, sf) e.Graphics.DrawString(Dt.Rows(i)("NATIONALITG"), fun, Brushes.Black, 530, 328, sf) e.Graphics.DrawString(Dt.Rows(i)("NUM_VERTIFI"), fun, Brushes.Black, 400, 329, sf) e.Graphics.DrawString(Dt.Rows(i)("DATA_GRAN"), fun, Brushes.Black, 510, 359, sf) e.Graphics.DrawString(Dt.Rows(i)("DATA_VALID"), fun, Brushes.Black, 400, 359.5, sf) e.Graphics.DrawString(Dt.Rows(i)("ISSUED"), fun, Brushes.Black, 530, 378, sf) e.Graphics.DrawString(Dt.Rows(i)("NOTES"), fun, Brushes.Black, 400, 380.5, sf) e.Graphics.DrawString(Dt.Rows(i)("BLOODTYPE"), fun, Brushes.Black, 520, 405, sf) Case 2 e.Graphics.DrawString(Dt.Rows(i)("NAME"), fn, Brushes.Black, 520, 658, sf) e.Graphics.DrawString(Dt.Rows(i)("FAMILY"), fn, Brushes.Black, 480, 658, sf) e.Graphics.DrawString(Dt.Rows(i)("DATA_BIRH"), fun, Brushes.Black, 480, 719, sf) e.Graphics.DrawString(Dt.Rows(i)("GOVERM"), fun, Brushes.Black, 400, 719, sf) e.Graphics.DrawString(Dt.Rows(i)("TITLE"), fun, Brushes.Black, 480, 740, sf) e.Graphics.DrawString(Dt.Rows(i)("PHONEE"), fun, Brushes.Black, 400, 740, sf) e.Graphics.DrawString(Dt.Rows(i)("NATIONALITG"), fun, Brushes.Black, 530, 767, sf) e.Graphics.DrawString(Dt.Rows(i)("NUM_VERTIFI"), fun, Brushes.Black, 400, 767, sf) e.Graphics.DrawString(Dt.Rows(i)("DATA_GRAN"), fun, Brushes.Black, 510, 797, sf) e.Graphics.DrawString(Dt.Rows(i)("DATA_VALID"), fun, Brushes.Black, 400, 797, sf) e.Graphics.DrawString(Dt.Rows(i)("ISSUED"), fun, Brushes.Black, 530, 818, sf) e.Graphics.DrawString(Dt.Rows(i)("NOTES"), fun, Brushes.Black, 400, 818, sf) e.Graphics.DrawString(Dt.Rows(i)("BLOODTYPE"), fun, Brushes.Black, 520, 843, sf) End Select Next ٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠ المشاكل التي تحدث 1_ لا استطيع الطباعة الا بتحديد رقم الصف 2_ انا لدي اكثر من ٣٠ صف ولا اريد ان اكتب ٣٠ كود 3_ لا تنتقل للصفحة الثانية تلقائياً . ....................... الخلاصة : لدي بيانات اكثر من ٣٠ موظف في الصفحة الورقية المطبوعة يوجد فيها بيانات صفين فقط من الداتا جيراد فيو اي لموظفين فقط ، وتلقائيا تنتقل لصفحة ثانية وتطبع الصفين الجدد بنفس كود الصفين الأول والثاني وهكذا إلا أن تنتهي البيانات في الداتا جيراد فيو . مع التحقق بعدد الصفوف الواجب طباعتها RE: سؤال في الطباعة باستخدام data grid view - asemshahen5 - 03-09-19 ضع مثال مصغر مع جدول المراد طباعة السجلات منه و صورة لتقرير عملته و باذن الله ستتم مساعدتك . |