ashraf_al_ani قام بنشر مارس 12, 2020 مشاركة قام بنشر مارس 12, 2020 السلام عليكم اخواني لدي نموذج فيه ٥ قيود يحتوي هذا النموذج على حقل يدعىprint قيمته في القيد الاول =٣ قيمته في القيد الثاني =١ و هكذا اريد اطبع هذه القيود بزر امر لكن على عدة طابعات اعتمادا على قيمة الحقل print مع التقدير رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر مارس 12, 2020 مشاركة قام بنشر مارس 12, 2020 ارفق مثال مبسط ... ليتمكن الخبراء التعديل عليه رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر مارس 12, 2020 مشاركة قام بنشر مارس 12, 2020 (معدل) السلام عليكم اخي الكريم يمكنك اختيار طابعة بالكود دون التاثير على الطابعة الافتراضية جرب الكود على اعتبار ان الحقل اسمه 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 بواسطه خالد سيسكو 2 رابط هذا التعليق شارك More sharing options...
ashraf_al_ani قام بنشر مارس 14, 2020 الكاتب مشاركة قام بنشر مارس 14, 2020 السلام عليكم ممنون على الرد السريع نعم الكود يعمل على قيد واحد لكن كيف يمكنني ان اجعل الكود يعمل على جميع القيود الموجودة و لتكن 5 قيود بكبسة زر واحدة اقصد يطبع القيود الخمسة الموجودة كل حسب طابعته و انا شاكر لحضراتكم رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر مارس 14, 2020 مشاركة قام بنشر مارس 14, 2020 (معدل) السلام عليكم اعذرني ليس لدي طابعة بالمنزل للتجربة بس ممكن تكرر القيود المراد طباعتها مثلا التقارير من 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 بواسطه خالد سيسكو رابط هذا التعليق شارك More sharing options...
ashraf_al_ani قام بنشر مارس 14, 2020 الكاتب مشاركة قام بنشر مارس 14, 2020 شكرا استاذنا الفاضل ارفقت نموذج مبسط جدا القيد الاول باسم AHMED يطبع على طابعة قسم المعلوماتية القيد الثاني باسم ALI يطبع على طابعة قسم الادارية زر الامر في اسفل الفورم يطبق الامر على حميع الموظفين اقصد عند الضفط على زر اطبع يطبع لكل الموظفين كل حسب قسمه و طابعته ارجو قد اوضحت ولكم مني جزيل الشكر و التقدير New Microsoft Office Access Application.rar رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر مارس 14, 2020 مشاركة قام بنشر مارس 14, 2020 السلام عليكم استاذ اشرف سامحني ليس لدي طابعة بالبيت لكي اجرب العمل المهم حسب مافهمت من طلبك جرب المرفق واعلمنا النتائج تحياتي test-1.rar رابط هذا التعليق شارك More sharing options...
ashraf_al_ani قام بنشر مارس 14, 2020 الكاتب مشاركة قام بنشر مارس 14, 2020 اهلا استاذنا الفاضل حصلت على هذا الرسالة عند التنفيذ و ممكن سوال هل ينتقل الامر الى القيد الثاني لطباعته و للثالث و هكذا اقصد اذا كان عندي اكثر من 100 موظف موزعين على الاقسام مع التقدير رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر مارس 14, 2020 مشاركة قام بنشر مارس 14, 2020 (معدل) السلام عليكم اولا هل كتبت اسم الطابعة بالكامل كانون او غيرها قم بتغيير الاسم تحياتي تم تعديل مارس 14, 2020 بواسطه خالد سيسكو رابط هذا التعليق شارك More sharing options...
ashraf_al_ani قام بنشر مارس 14, 2020 الكاتب مشاركة قام بنشر مارس 14, 2020 شكرا استاذنا الفاضل ساقوم بالتجربة و ابلغك النتائج و انا شاكر لجنابكم 1 رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر مارس 14, 2020 مشاركة قام بنشر مارس 14, 2020 اخي العزيز اعتذر لاتوجد لدي طابعة بالمنزل لكان الموضوع تم نجربته تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.