تعديل كود الطباعة

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تعديل كود الطباعة

مُساهمة من طرف alfakeehy في الإثنين نوفمبر 23, 2015 3:32 pm

السلام عليكم 
ممكن لو تكرمتو اخواني اعادة ضبط هذا الكود بحيث تكون الطباعة بدلا عن داتا ريبورت يكون اكتف ريبورت

الكود:
Set prinRs = prinDb.Execute("SELECT * FROM db2 WHERE id = " & Text35.Text & ";")
If prinRs.EOF = False Then

Set DataReport1.DataSource = prinRs
DataReport1.Show 1
End If

يكون البدل ActiveReport1.Show

تحياتي لكم

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
avatar
alfakeehy
.....
.....

تاريخ التسجيل : 21/11/2014
المساهمات : 85
النقاط : 123
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعديل كود الطباعة

مُساهمة من طرف gadr في الثلاثاء نوفمبر 24, 2015 1:19 pm

alfakeehy كتب:السلام عليكم 
ممكن لو تكرمتو اخواني اعادة ضبط هذا الكود بحيث تكون الطباعة بدلا عن داتا ريبورت يكون اكتف ريبورت

الكود:
Set prinRs = prinDb.Execute("SELECT * FROM db2 WHERE id = " & Text35.Text & ";")
If prinRs.EOF = False Then

Set DataReport1.DataSource = prinRs
DataReport1.Show 1
End If



يكون البدل ActiveReport1.Show

تحياتي لكم
الكود:
ActiveReport1.DataControl1.Recordset = prinrs
ActiveReport1.Refresh
ActiveReport1.Show

avatar
gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 44
النقاط : 56
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تعديل كود الطباعة

مُساهمة من طرف alfakeehy في الثلاثاء نوفمبر 24, 2015 7:18 pm

يعطيك العافيه اخي قادر وماقصرت
مشكور ياغالي

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
avatar
alfakeehy
.....
.....

تاريخ التسجيل : 21/11/2014
المساهمات : 85
النقاط : 123
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى