طباعة ماداخل الداتا قريد

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

ok طباعة ماداخل الداتا قريد

مُساهمة من طرف alfakeehy في السبت ديسمبر 06, 2014 8:46 am

السلام عليكم ورحمة الله وبركاته


اسعد الله اوقاتكم بكل خير


اخواني الافاضل


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


ابغى كود طباعتها في اكتف ريبورت
وكود في الداتا ريبورت الله يخليكم


عدل سابقا من قبل alfakeehy في الثلاثاء ديسمبر 09, 2014 4:21 pm عدل 1 مرات (السبب : تم الحل)

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

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

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

ok رد: طباعة ماداخل الداتا قريد

مُساهمة من طرف end.sub في السبت ديسمبر 06, 2014 7:56 pm

أذا كنت تريد الطباعة مباشرة فاليك هذا المثال

http://zakyshny.eu5.org/kleeja/uploads/egy-tech14178955171.rar


أما اذا كنت تستخدم تقارير DataReport فيمكنك استخدام الكود التالى :

الكود:
Private Sub cmdPrint_Click()

Do While DataGrid1.Columns(0) <> ""

DataReport1.Sections("Section2").Controls("label1").Caption = DataGrid1.Columns(1)

DataGrid1.Row = DataGrid1.Row + 1

Loop

End Sub



avatar
end.sub
.....
.....

تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 131
التقيم : 9
الدولة : مصر
الجنس : ذكر

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

ok رد: طباعة ماداخل الداتا قريد

مُساهمة من طرف alfakeehy في الأحد ديسمبر 07, 2014 1:47 pm

هلا وغلا اخي 

ماقصرت اخي بس الكود والله ما نفع معي مررة

يطلع فيه خطأ

ياليت تعدل لي الكود

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

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

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

ok رد: طباعة ماداخل الداتا قريد

مُساهمة من طرف زهراء في الأحد ديسمبر 07, 2014 8:36 pm


شوف هذا المثال اخى الكريم باستخدام DataEnvironmen

http://zakyshny.eu5.org/kleeja/uploads/egy-tech14179845191.rar
avatar
زهراء
........
........

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 372
التقيم : 24
الدولة : مصر
الجنس : انثى

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

ok رد: طباعة ماداخل الداتا قريد

مُساهمة من طرف alfakeehy في الثلاثاء ديسمبر 09, 2014 8:46 am

الله يعطيكم العافيه ماقصرتو 
بس للاسف والله ماضبط معي نهائيا


راح اوضح لكم الصورة بشكل افضل


عندي فور وحاط فيه 1 زر طباعة
وحاط فيه داتا قريد
وتكست بحث


بحيث ابحث عن موظف في التكست حق البحث تطلع بياناته في الداتا قريد


الان اريد ان اطبع نتائج البحث اللي موجودة في الداتا قريد فقط ( اذا ضغطت على زر الطباعة تطلع في الطباعة نتائج البحث اللي في الداتا قريد في داتا ريبورت )


الله يعطيكم العافيه اخواني واعتذر على الازعاج


تحياتي لكم جميعا

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

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

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

ok رد: طباعة ماداخل الداتا قريد

مُساهمة من طرف alfakeehy في الثلاثاء ديسمبر 09, 2014 4:11 pm

الله يعطيكم العافيه

خلاص وصلت للحل بارك الله فيكم وعرفت 
وراح ارفق لكم الكود للي يبي يستفيد منه 

الكود:
Private Sub Command1_Click()
Set DataReport1.DataSource = Adodc1
DataReport1.Show

الله عطيكم العافيه اخواني الكرام

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

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

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

ok رد: طباعة ماداخل الداتا قريد

مُساهمة من طرف نجلاء فتحي في الثلاثاء ديسمبر 09, 2014 4:56 pm

alfakeehy كتب:الله يعطيكم العافيه

خلاص وصلت للحل بارك الله فيكم وعرفت 
وراح ارفق لكم الكود للي يبي يستفيد منه 

الكود:
Private Sub Command1_Click()
Set DataReport1.DataSource = Adodc1
DataReport1.Show

الله عطيكم العافيه اخواني الكرام

شكر لك يا اخى لكونك توصلت للحل و لم تبخل به علينا ...جزاكم الله خيرا
avatar
نجلاء فتحي
...
...

تاريخ التسجيل : 20/02/2011
المساهمات : 48
النقاط : 94
التقيم : 0
الجنس : انثى

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

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


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