• 0
misho3333

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

سؤال

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

 

انا عندى برنامج فيه مجموعه من الربورتات  

 

عايز اخلى مثلا report1 يطبع على الطابعه الى اسمها print1 الموجوده على جهازى 

والتقرير الى اسمه report2 يطبع على الطابعه الى اسمها print2 

 

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

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

26 إجابة على هذا السؤال .

  • 0

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

 

ملفك بعد التعديل بناء على طلبك

 

 

ملاحظة : هل انت صاحب اول سؤال في هذه المشاركة وهذا المعرف الذي تستخدمه الآن في المشاركة يخصك ايضا  !!!

 

 

za-Store-UP.rar

 

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

 

8i5j.png

 

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

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

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

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

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

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

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

 

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

تم تعديل بواسطه Mrhb
2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

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

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

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

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

 

 

PrintOneToManey.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

 

8i5j.png

 

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

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

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

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

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

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

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

 

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

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

 

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

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

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

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

 

post-280147-0-98256200-1393911437.jpg

post-280147-0-05912100-1393911512.jpg

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

وشكرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

وشكرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

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

 

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

 

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

 

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

 

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

 

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

 

مثال : 

 

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

 

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

 

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

 

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

 

Private Sub Command0_Click()DoCmd.OpenReport "Report1", acViewNormalDoCmd.OpenReport "Report2", acViewNormalEnd Sub

 

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

 

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

 

بالتوفيق

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

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

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

 

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

 

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

 

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

 تفضلي :-

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

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

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

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

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

 

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

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

post-280147-0-89215400-1394352572_thumb.

تم تعديل بواسطه wael_rafat
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

 

post-15367-0-98537900-1394373991_thumb.g

 

 

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

 

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

 

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

 

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

 

 

 

 

za-PrintReportOnMultiplePrinters.rar

 

 

بالتوفيق

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

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

 

post-280147-0-63849600-1394388327_thumb.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

 

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

 

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

 

 

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

 

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

 

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
 
بالتوفيق
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل

 

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

 

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

 

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

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

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

 

post-280147-0-07367500-1394433569_thumb.

post-280147-0-28758100-1394433603_thumb.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

القاعدة

Store.rar

تم تعديل بواسطه wael_rafat
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .