الطباعة - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +--- الموضوع : الطباعة (/showthread.php?tid=40570)

الطباعة - ابو ياسين ويزن - 26-01-22 طب بعد اذنكم بالنسبة للطباعة انا أضفت عمود فيه اسم الطابعة لكل صنف بس التقرير عندي بياخد البيانات من الداتا سيت ازاي اعبي الداتا تيبل بصفوف حسب اسم الطابعة من الداتا جريد فيو ودي صور كود الطباعة الداتا تيبل والداتا جرد فيو في جملة اتش يعني لو عندي ١٠ صفوف وفي خمسة بطابعة ebson ازاي اعبي ال ٥ بس الكود عندي بطبع بال xtrareport ده اللي بيعبي التقرير  Dim xtr As New XtraReport  Dim dt As New datatable  Dt. Column s. Clear Dt. Rows. Clear With dt Columans. Add("code" )  Columans. Add("item" )  Columans. Add("prentr" )  Columans. Add("total" ) Columans. Add("vat" )  Columans. Add("qty" )  For each d As datagridview in dgvsale. Rows , Dt. Rows. Add(d. Column s. Value  , D. Column s0, value D. Column s1. Value D. Columns2. Value الي آخره عاوز اعمل شرط لو سطر في الداتا جريد فيو فيه اسم طابعة معينة يضيفة في الداتا تيبل اللي بتعبي الداتا سيت فقط