منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
في ما يخص الطباعة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : في ما يخص الطباعة (/showthread.php?tid=28703)

الصفحات: 1 2


RE: في ما يخص الطباعة - hassan 14 - 06-03-19

يا اخوة لم اتوصل الى الحل جربت ولكن لا فائدة


RE: في ما يخص الطباعة - حريف برمجة - 06-03-19

(06-03-19, 08:10 PM)hassan 14 كتب : يا اخوة لم اتوصل الى الحل جربت ولكن لا فائدة

ما هو الذي جربته ،، أيضا ويش حصل معك ؟

هل ظهرت رساله او شيء من هذا القبيل ؟


RE: في ما يخص الطباعة - hassan 14 - 06-03-19

لا اما يطبعلي البطاقة فارغة او يطبع جميع البطاقات مااردته لم ينفذ كما يجب اشكرك كثيراا اخي حريف


RE: في ما يخص الطباعة - حريف برمجة - 06-03-19

ارفع مثال للجزئية المطلوب حلها لتجد الحل بشكل اسرع ...


RE: في ما يخص الطباعة - hassan 14 - 07-03-19

هذا الكود الذي استعمله
رقم 16 يمثل مكان الشكبوكس في لبجدول مصدر البيانات
لكن عند الضغط على الزر يطبع جميع البطاقات
كود :
Public Sub tabaa(ByVal DGV1 As DataGridView)
       Dim dt As New DataTable
       Dim da As New OleDbDataAdapter
       dt.Clear()
       da = New OleDbDataAdapter("select * from mochtrikin", con)
       da.Fill(dt)
       For i = 0 To DGV1.Rows.Count - 1
           If DGV1.Item(16, i).Value = True Then
               Formcrvmochtrkin.Show()
               Formcrvmochtrkin.WindowState = FormWindowState.Maximized
               Dim rpt As New CrystalReportmoch
               rpt.SetDataSource(dt)
               rpt.SetParameterValue("pic", Application.StartupPath)
               Formcrvmochtrkin.CrystalReportViewer1.ReportSource = rpt
               Formcrvmochtrkin.CrystalReportViewer1.Refresh()
           End If
       Next
   End Sub



RE: في ما يخص الطباعة - elgokr - 08-03-19

مرحباً اخى hassan 14

يجب عليك التعديل على كود الاستعلام
كود :
select * from mochtrikin

لان الاستعلام عبارة عن جلب جميع البيانات ثم ترحيلها الى التقارير

يجب ان يحتوى على ..
كود :
WHERE .....

بحيث تقوم بجلب قيمة من خلال رقم التسلسل مثل
كود :
select * from mochtrikin WHERE id = 1

تحياتى لك
وتمنياتى لك التوفيق



RE: في ما يخص الطباعة - hassan 14 - 10-04-19

لم اتوصل ال الحل بعد هل من حل من فضلككم


RE: في ما يخص الطباعة - elgokr - 11-04-19

يفضل ارفاق المشروع اخى الحبيب
حتى تجد الحل اسرع

لان الجميع هنا قام بوضع الحل لك
من حيث فكرياً 
ولكن يبدو انك غير قادر على تنفيذ الفكرة عملياً

تحياتى لك
وتمنياتى لك التوفيق