طباعة عدة حقول على طابعات مختلفة

[ashraf_al_ani]

السلام عليكم اخواني 

لدي نموذج فيه ٥ قيود يحتوي هذا النموذج على حقل يدعىprint 

قيمته في القيد الاول =٣

قيمته في القيد الثاني =١

و هكذا 

اريد اطبع هذه القيود بزر امر لكن على عدة طابعات اعتمادا على قيمة   الحقل print 

مع التقدير

 

[ناقل]

ارفق مثال مبسط ... ليتمكن الخبراء التعديل عليه

[Khalid Jnb]

السلام عليكم

اخي الكريم يمكنك اختيار طابعة بالكود دون التاثير على الطابعة الافتراضية

جرب الكود على اعتبار  ان الحقل اسمه print   واعلمنا النتائج

If print  = 1 Then
Set Application.Printer = Application.Printers("اسم الطابعة الكامل")
DoCmd.OpenReport "اسم التقرير", acViewNormal

elseif print  = 3 Then
Set Application.Printer = Application.Printers("اسم الطابعة الكامل")
DoCmd.OpenReport "اسم التقرير", acViewNormal
end if

تحياتي

تم تعديل مارس 12, 2020 بواسطه خالد سيسكو

[ashraf_al_ani]

السلام عليكم 

ممنون على الرد السريع 

نعم الكود يعمل على قيد واحد لكن كيف يمكنني ان اجعل الكود يعمل على جميع القيود الموجودة و لتكن 5 قيود بكبسة زر واحدة 

اقصد يطبع القيود الخمسة الموجودة كل حسب طابعته و انا شاكر لحضراتكم

 

 

[Khalid Jnb]

السلام عليكم

اعذرني ليس لدي طابعة بالمنزل للتجربة

بس ممكن تكرر القيود المراد  طباعتها  مثلا  التقارير من 1- 5

اعمل زر  اخر للتجربة وجرب هذ الكود

Set Application.Printer = Application.Printers("اسم الطابعة الكامل")
DoCmd.OpenReport "اسم التقرير", acViewNormal
Set Application.Printer = Application.Printers("اسم الطابعة الكامل")
DoCmd.OpenReport "اسم التقرير", acViewNormal
Set Application.Printer = Application.Printers("اسم الطابعة الكامل")
DoCmd.OpenReport "اسم التقرير", acViewNormal
Set Application.Printer = Application.Printers("اسم الطابعة الكامل")
DoCmd.OpenReport "اسم التقرير", acViewNormal
Set Application.Printer = Application.Printers("اسم الطابعة الكامل")
DoCmd.OpenReport "اسم التقرير", acViewNormal

اعلمنا النتائج

تحياتي

 

تم تعديل مارس 14, 2020 بواسطه خالد سيسكو

[ashraf_al_ani]

شكرا استاذنا الفاضل

ارفقت نموذج مبسط جدا 

القيد الاول باسم AHMED يطبع على طابعة قسم المعلوماتية

القيد الثاني باسم ALI يطبع على طابعة قسم الادارية

زر الامر في اسفل الفورم يطبق الامر على حميع الموظفين 

اقصد عند الضفط على زر اطبع يطبع لكل الموظفين كل حسب قسمه و طابعته

ارجو قد اوضحت ولكم مني جزيل الشكر و التقدير

 

New Microsoft Office Access Application.rar

[Khalid Jnb]

السلام عليكم

استاذ اشرف  سامحني  ليس لدي طابعة بالبيت  لكي اجرب العمل

المهم

حسب مافهمت من طلبك

جرب المرفق واعلمنا النتائج

تحياتي

test-1.rar

[ashraf_al_ani]

اهلا استاذنا الفاضل

حصلت على هذا الرسالة عند التنفيذ

و ممكن سوال هل ينتقل الامر الى القيد الثاني لطباعته و للثالث و هكذا

اقصد اذا كان عندي اكثر من 100 موظف موزعين على الاقسام

مع التقدير

[Khalid Jnb]

السلام عليكم

اولا هل كتبت اسم الطابعة  بالكامل  كانون  او غيرها

قم بتغيير الاسم

تحياتي

تم تعديل مارس 14, 2020 بواسطه خالد سيسكو

[ashraf_al_ani]

شكرا استاذنا الفاضل ساقوم بالتجربة و ابلغك النتائج و انا شاكر لجنابكم

 

[Khalid Jnb]

اخي العزيز

اعتذر لاتوجد لدي طابعة بالمنزل لكان الموضوع تم نجربته 

تحياتي