ازاى اخلى الربورت يطبع على برنتر معينه

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

إتبع الخطوات حسب الصورة

-   إفتح التقرير المطلوب بطباعه في وضع التحرير

1- إختر من التبويب ( إعدادات الصفحة )

2- إختر ( إعدادات الصفحة )

3- إختر الآن الخيار ( إستخدام الطابعة المخصصة )

4- إضغط على الزر ( الطابعات )

5- إختر الآن الطابعة التي تريد الطباعة التقرير الحالي منها

-   ثم إضعط على الزر موافق و حفظ الإعدادات 

لا تنسى في الدعوات لي ولوالدي ولجميع المسلمين

السلام عليكم

اخي الفاضل Mrhb جزاك الله كل خير

الطريق ممتازة بارك الله فيك

ولكن فى حالة اذا كنت اريد طباعة التقريرين فى نفس الوقت بضغطة واحدة  فما الحال .؟؟؟

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

ومرفق القاعدة ... لكن المشكلة انها لم تشتغل معي فما ادري ما السبب مع العلم انني استخدم اكسس 2013

PrintOneToManey.rar

Mrhb كتب:

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

 

إتبع الخطوات حسب الصورة

 

 

-   إفتح التقرير المطلوب بطباعه في وضع التحرير

1- إختر من التبويب ( إعدادات الصفحة )

2- إختر ( إعدادات الصفحة )

3- إختر الآن الخيار ( إستخدام الطابعة المخصصة )

4- إضغط على الزر ( الطابعات )

5- إختر الآن الطابعة التي تريد الطباعة التقرير الحالي منها

-   ثم إضعط على الزر موافق و حفظ الإعدادات 

 

لا تنسى في الدعوات لي ولوالدي ولجميع المسلمين

أخى العزيز مشاركة جيدة ولكن هل فى كود لهذا العمل .. نرجو مثال

السلام عليكم

اخي الفاضل رامي المثال مرفق بالاعلي وبه الكود وكل شيء باسم printonetomany

ولكنه لم يشتغل معي ولا اعلم السبب جربه انت واخبرنا بالنتيجة

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

أخي الكريم المثال أخونا مروان شغال عندي 100% بس تضيف فيه إسم الطابعات و إسم التقارير

Private Sub Command0_Click()
   SetDefaultPrinter ("إسم الطابعة الأولى")
DoCmd.OpenReport "إسم التقرير", acViewNormal, "", "", acNormal
   SetDefaultPrinter ("إسم الطابعة الثانية")
DoCmd.OpenReport "إسم التقرير", acViewNormal, "", "", acNormal
   SetDefaultPrinter ("إسم الطابعة الثالثة")
DoCmd.OpenReport "إسم التقرير", acViewNormal, "", "", acNormal

End Sub

بالتوفيق

السلام عليكم

الاخوة والاخوات اعضاء ومشرفي منتدانا المحترم

اخي العزيز ( MRHB )  تم تجربة البرنامج الخاص باخونا العزيز ابو مروان ولكن نفس المشكلة ما زالت  لا يعمل وتظهر هذه الرسالة

الموضوع كالتالي :-

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

1- طباعة عدد ( 2 ) نسخة  على الطابعة ( A )

2 - طباعة عدد ( 1 ) نسخة على الطابعة (B )

ولا اعلم اين المشكلة  مع العلم انني استخدم اكسيس 2013

وشكرا

wael_rafat كتب:

ولا اعلم اين المشكلة  مع العلم انني استخدم اكسيس 2013

وشكرا

السلام عليكم

الاخوة الكرام

الاخ الفاضل مرحب

للتذكرة  فقط  وشكرا

السلام عليكم

الاخوة والاخوات الكرام

برجا الافادة ماذا تعني هذه الرسالة

wael_rafat كتب:

السلام عليكم

الاخوة والاخوات الكرام

برجا الافادة ماذا تعني هذه الرسالة

اخي الفاضل : وائل

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

تظهر هذه الرساله عندما تحاول جعل الطابعتين افتراضيتين في نفس الوقت وهذا غير صحيح

لأنه لا يمكن بأي حال من الأحوال جعل اكثر من طابعة هي الإفتراضية لأن المتحكم في ذلك هو  المعالج  CPU

والحل الأفضل لك هو القيام بتعيين  طابعة لكل تقرير

مثال : 

لديك طابعتين ولديك تقريرين فيجب عليك تعيين الطابعة الأولى للتقرير الأول وذلك من خلال اعداد الصفحة للتقرير يدويا

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

كما شرحها لك بالصور الأخ رامي 

الآن ضع زر امر واحد وضع تحته امر طباعة التقريرين بهذه الطريقة

Private Sub Command0_Click()
DoCmd.OpenReport "Report1", acViewNormal
DoCmd.OpenReport "Report2", acViewNormal
End Sub

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

وقد يحدث في بعض الأحيان مهلة او انتظار بين الطابعتين لحين انتهاء المهمة من الطباعة سواء للأولى او الثانية

بالتوفيق

السلام عليكم

الاستاذة الفاضلة ام عهود بارك الله في عمرك واولادك وعلمك

تمام وضحت الصورة بخصوص طباعة تقريرين علي طابعتين

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

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

1- طباعة عدد ( 2 ) نسخة على الطابعة ( A )

2 - طباعة عدد ( 1 ) نسخة على الطابعة (B )

وسامحيني علي الاطالة وجزاكي الله كل خير

اخي الفاضل : وائل

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

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

حتى نحاول وضع الكود اللازم لذلك

بالتوفيق

السلام عليكم

الاستاذة الفاضلة ام عهود بارك الله فيكي 

 تفضلي :-

اسم التقرير  ( Rprintorder )

اسماء الطابعات ( Konica Minolta  - Lexmark )

المطلوب بعد اذنك

1- طباعة عدد ( 2 ) نسخة على الطابعة ( Konica Minolta  )
2 - طباعة عدد ( 1 ) نسخة على الطابعة (Lexmark )

بإجراء واحد وبنفس الوقت

وجزاكي الله كل خير 

صورة توضيحية لاسماء الطابعات

تفضل اخي الكريم

اختر الطابعة الأولى واختر عدد نسخ التقرير المطلوب طباعتها

وايضا اختر الطابعة الثانية واختر عدد نسخ التقرير المطلوب طباعتها

ثم اضغط ( طباعة )

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

za-PrintReportOnMultiplePrinters.rar

بالتوفيق

السلام عليكم

بارك الله فيكى استاذتنا الفاضلة وجزاكي الله كل خير

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

حسنا أخي الكريم

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

او قم بكتابة اسماء الطابعات التي تريد الطباعة عليها من واقع مربعات التحرير والسرد

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

بالتوفيق

يبدو انك تأخرت بارك الله في جلب اسماء الطابعات

عموما لا يوجد مشكله

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

Private Sub Command0_Click()
  DoCmd.OpenReport "Rprintorder", acViewPreview, , , acHidden
  Set Reports!Rprintorder.Printer = Application.Printers(3)
  DoCmd.OpenReport "Rprintorder", acViewPreview, , , acHidden
  DoCmd.PrintOut , , , , 2
  DoCmd.Close acReport, "Rprintorder"
 
 
  DoCmd.OpenReport "Rprintorder", acViewPreview, , , acHidden
  Set Reports!Rprintorder.Printer = Application.Printers(2)
  DoCmd.OpenReport "Rprintorder", acViewPreview, , , acHidden
  DoCmd.PrintOut , , , , 1
  DoCmd.Close acReport, "Rprintorder"
End Sub

اخي الفاضل

قم بتجربة الكود واخبرنا بالنتيجة بارك الله بك

بالتوفيق

بارك الله فيكي اختي الفاضلة ولحضرتك جزيك الشكر والتقدير علي الاهتمام وإن شاء الله سوف اقوم بالتجربة واخبارك

وربنا يجازيكي كل خير

ماشاء الله تبارك الله  ممتااااز

الله يحفظك ويكرمك استاذتنا الفاضلة وبارك الله فى عمرك وعلمك ، ولكن لدي استفسارات كالتالي :-

 اولا :- الكود تمام فى حالة عدم ادخال اسماء الطابعات ، ولكن عند ادخال اسماء الطابعات تظهر رسلة بالخطأ .

ثانيا :- ماذا تعني الارقام ( 3 ) ، ( 2 ) ؟؟؟ هل هي ترتيب الطابعات ؟

ثالثا:- عند الطباعة اريد بعد اذنك طباعة السجل الحالي ( الفاتورة الحالية ) فقط ومرفق لحضرتك صورة الخطأ والقاعدة

القاعدة

wael_rafat كتب:

القاعدة

Store.rar