اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


mohamed-elc
إذهب إلى أفضل إجابة Solved by jjafferr,

الردود الموصى بها

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

بعد اذن اساتذتنا الكرام 

عندي برنامج (قاعدة بيانات)

اقوم بتسجيل الموضوعات بها 

وعند الطباعة اقوم بطبع ثلاث نسخ 

كلها نفس الموضوع ونفس المحتوي 

ولكن بعد طباعتها اقوم بكتابة رقم السجل الصادر

علي نسختين فقط احداهما للجزاءات والاخري للماهيات

واكتب عليهم هكذا مثلا 100 جزاءات والثاني 101 ماهيات 

والنسخه الثالثه تظل في المكتب 

المطلوب 

طباعة كلمة جزاءات علي نسخة منهم 

والثانية طباعة كلمة ماهيات 

والثالثة جزاءات + ماهيات 
فهل هناك استطاعة لفعل هذا واعتذر للاطالة ولكم جزيل الشكر

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

ملحوظة /// في مكاتب البريد عند ارسال حواله 

يتم طباعة ثلاث نسخ من الايصال ويكتب عليهم المكتب

الا نسخة واحده يكتب عليها نسخة العميل 

تم تعديل بواسطه mohamed-elc
رابط هذا التعليق
شارك

1 ساعه مضت, mohamed-elc said:

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

بعد اذن اساتذتنا الكرام 

عندي برنامج (قاعدة بيانات)

اقوم بتسجيل الموضوعات بها 

وعند الطباعة اقوم بطبع ثلاث نسخ 

كلها نفس الموضوع ونفس المحتوي 

ولكن بعد طباعتها اقوم بكتابة رقم السجل الصادر

علي نسختين فقط احداهما للجزاءات والاخري للماهيات

واكتب عليهم هكذا مثلا 100 جزاءات والثاني 101 ماهيات 

والنسخه الثالثه تظل في المكتب 

المطلوب 

طباعة كلمة جزاءات علي نسخة منهم 

والثانية طباعة كلمة ماهيات 

والثالثة جزاءات + ماهيات 
فهل هناك استطاعة لفعل هذا واعتذر للاطالة ولكم جزيل الشكر

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

ملحوظة /// في مكاتب البريد عند ارسال حواله 

يتم طباعة ثلاث نسخ من الايصال ويكتب عليهم المكتب

الا نسخة واحده يكتب عليها نسخة العميل 

اعمل جدول مثل هذا ..... حيث يتم طباعة الخطاب حسب الثلاث سجلات بها :::

1- جزاءات برقم الصادر ( حيث يمكن جعل رقم الصادر متغير تلقائيا كل عملية طباعة يزيادة رقم للسجل بدون تدخل منك .

2- ماهيات برقم ايضا بنفس فكرة الجزاءات ==========================================.

3- والاخيرة نسخة المكتب وهي بدو رقم ....

 

هذا اذا كان فهمي للموضوع سليما .................................................................................

 

1.png

  • Like 2
رابط هذا التعليق
شارك

  • أفضل إجابة

وعليكم السلام 🙂

 

ومشاركة مع اخي kanory 🙂

 

1. اعمل حقل نص في التقرير لكتابة كلمة جزاءات و ماهيات

image.png.610b44e48db73f14829f0fbe5e6781a5.png

.

2. اعمل الحقل myText في النموذج الذي سيتم منه الطباعة :

image.png.eec6441ac1004ee4c0479a6923317fc8.png

.

وهذا الكود على حدث زر الطباعة:

Private Sub cmd_print_3_Copies_Click()


    Me.myText = "جزاءات"
    DoCmd.OpenReport "Report1"
    
    Call Pause_Time
    
    
    Me.myText = "ماهيات"
    DoCmd.OpenReport "Report1"
    
    Call Pause_Time
    
    
    Me.myText = "جزاءات + ماهيات"
    DoCmd.OpenReport "Report1"
    
    Call Pause_Time
    
    
End Sub

Sub Pause_Time()

    Dim PauseTime, Start

    PauseTime = 2    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop

End Sub

.

قد لا تكون بحاجة الى الدالة Pause_Time ، فهي تجعل الكمبيوتر ينتظر ثانيتين قبل ان يطبع التقرير التالي.

 

جعفر

1527.Report_Label.mdb.zip

  • Like 4
رابط هذا التعليق
شارك

في 7‏/11‏/2022 at 15:20, kanory said:

اعمل جدول مثل هذا ..... حيث يتم طباعة الخطاب حسب الثلاث سجلات بها :::

1- جزاءات برقم الصادر ( حيث يمكن جعل رقم الصادر متغير تلقائيا كل عملية طباعة يزيادة رقم للسجل بدون تدخل منك .

2- ماهيات برقم ايضا بنفس فكرة الجزاءات ==========================================.

3- والاخيرة نسخة المكتب وهي بدو رقم ....

 

هذا اذا كان فهمي للموضوع سليما .................................................................................

 

1.png

جزاكم الله خيرا 
شكرا جزيلا علي مساهمتك

 

رابط هذا التعليق
شارك

في 7‏/11‏/2022 at 17:03, jjafferr said:

وعليكم السلام 🙂

 

ومشاركة مع اخي kanory 🙂

 

1. اعمل حقل نص في التقرير لكتابة كلمة جزاءات و ماهيات

image.png.610b44e48db73f14829f0fbe5e6781a5.png

.

2. اعمل الحقل myText في النموذج الذي سيتم منه الطباعة :

image.png.eec6441ac1004ee4c0479a6923317fc8.png

.

وهذا الكود على حدث زر الطباعة:

Private Sub cmd_print_3_Copies_Click()


    Me.myText = "جزاءات"
    DoCmd.OpenReport "Report1"
    
    Call Pause_Time
    
    
    Me.myText = "ماهيات"
    DoCmd.OpenReport "Report1"
    
    Call Pause_Time
    
    
    Me.myText = "جزاءات + ماهيات"
    DoCmd.OpenReport "Report1"
    
    Call Pause_Time
    
    
End Sub

Sub Pause_Time()

    Dim PauseTime, Start

    PauseTime = 2    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop

End Sub

.

قد لا تكون بحاجة الى الدالة Pause_Time ، فهي تجعل الكمبيوتر ينتظر ثانيتين قبل ان يطبع التقرير التالي.

 

جعفر

1527.Report_Label.mdb.zip 26.19 kB · 7 downloads

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

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

معلومه // كل تقرير عندي علي استعلام منفصل 
وكل تقرير له رقم كي يظهر فيه البيانات بمعني اخر 
اني اعطي كل تقرير رقم في المعيار في الاستعلام 
اذا كتبت الرقم ظهر التقرير بكل بياناته وان لم اكتبه يظهر التقرير فارغ

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

رابط هذا التعليق
شارك

وعليكم السلام 🙂

9 دقائق مضت, mohamed-elc said:

وكل تقرير له رقم كي يظهر فيه البيانات بمعني اخر 
اني اعطي كل تقرير رقم في المعيار في الاستعلام 
اذا كتبت الرقم ظهر التقرير بكل بياناته وان لم اكتبه يظهر التقرير فارغ

هل هناك طريقة للاستفادة من نفس الزر علي كل التقارير

 

علشان التقرير ينطبع ، لازم اسم التقرير يكون موجود ، سواء في الكود او في Combobox او ListBox ،

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

 

جعفر

  • Thanks 1
رابط هذا التعليق
شارك

33 دقائق مضت, rockjone33 said:

 

من انشاء تقرير واحد محدد الحقول مثال 4  تستطيع انشاء لاي جدول من غير تعدد التقارير بتحديد عدد الحقول مع تصفية من غير انشاء استعلام  ☝.. 🙂

وزر اذا كان الكل دفعة وحده طباعة واذا كان محدد من غيرة الرجوع الى حدث الزر اضافة تقرير بمجموعة..  وطباعة.. 

برفع موضوع واستأنف ما ذكر..  ☝

اذا توفر وقت..

متأكد من floo.!! .. 

السلام عليكم ورحمة الله وبركاته
انتظر منك التوضيح بمثال اخي الفاضل 
وجزاكم الله خيرا

رابط هذا التعليق
شارك

2 ساعات مضت, rockjone33 said:

من انشاء تقرير واحد محدد الحقول مثال 4  تستطيع انشاء لاي جدول من غير تعدد التقارير بتحديد عدد الحقول مع تصفية من غير انشاء استعلام  ☝.. 🙂

وزر اذا كان الكل دفعة وحده طباعة واذا كان محدد من غيرة الرجوع الى حدث الزر اضافة تقرير بمجموعة..  وطباعة.. 

برفع موضوع واستأنف ما ذكر..  ☝

اذا توفر وقت..

متأكد من floo.!! .. 

th.gif.103beee0810fdbd6348a55b5793ce180.gif

  • Haha 1
رابط هذا التعليق
شارك

7 ساعات مضت, jjafferr said:

وعليكم السلام 🙂

 

علشان التقرير ينطبع ، لازم اسم التقرير يكون موجود ، سواء في الكود او في Combobox او ListBox ،

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

 

جعفر

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

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

رابط هذا التعليق
شارك

الظاهر اننا نتكلم عن شيئين مختلفين !!

المثال كما كتبته لك اعلاه 🙂

 

رجاء ترفق هذه الجزئية من برنامجك، وتخبرنا اي نموذج واي زر فيه المشكلة ، حتى نقدر نساعدك بطريقة افضل 🙂

 

جعفر

رابط هذا التعليق
شارك

منذ ساعه, jjafferr said:

الظاهر اننا نتكلم عن شيئين مختلفين !!

المثال كما كتبته لك اعلاه 🙂

 

رجاء ترفق هذه الجزئية من برنامجك، وتخبرنا اي نموذج واي زر فيه المشكلة ، حتى نقدر نساعدك بطريقة افضل 🙂

 

جعفر

السَلٱمٌ عـَلـْيگمّ-ۈرحـْمّـٌة ٱللـّہ ﯙبُرگـّاتہ

اخي المشكلة في النموذج الخاص بي 

عند وضع زر واحد لتقرير واحد يعمل بشكل صحيح

عندما اقوم بنسخ الزر لاقوم بعمل تقرير ثاني

هنا ييظهر الخطا وقد لايعمل نموذج الادخال الخاص بي

وما اطلبه من حضرتك هو تكرار زر الطباعه في مثال 

مماثل للذي ارسلته اول مَـرّھٌ في مشاركتك هذا ما اقصده

فمشاركتك بفضل الله ناجحه لذلك اطلب مـڼـڱ 

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

ملحوظة

 لْـۆ ممكن عمل مثال لكمبو بوكس اضع فِيَھ كل التقارير واختار التقرير الذي اريد طباعته ثم الضغط علي زر طباعه 

تم تعديل بواسطه mohamed-elc
رابط هذا التعليق
شارك

13 ساعات مضت, jjafferr said:

تفضل 🙂

 

كلما تعمل تقرير ، تلقائيا سيتم اضافته في القائمة

image.png.5d7b8621cd237dc4641f5e36a7726e31.png

.

جعفر

1528.Reports_in_Combobox.mdb.zip 36.18 kB · 7 downloads

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

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

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

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



1528.Reports_in_Combobox.mdb.zip1527.Report_Label.mdb.zip

رابط هذا التعليق
شارك

10 دقائق مضت, jjafferr said:

اخي محمد 🙂

 

هذا تعديل جدا بسيط ، وكان المفروض ان تحاول تعمله وتتعلم منه ، فهذا المنتدى للتعلم 🙂

 

على العموم ، تفضل 🙂

 

جعفر

1528.1.Reports_in_Combobox.mdb.zip 44.47 kB · 1 download

جزاكم ربي خيري الدنيا والاخره 
لا حرمكم الله الاجر 
منكم نتعلم اخي الفاضل 

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

دمت طيبا مباركًا

رابط هذا التعليق
شارك

في 7‏/11‏/2022 at 18:03, jjafferr said:

اعمل الحقل myText في النموذج الذي سيتم منه الطباعة

الاستاذ @jjafferr ماشاء الله عليه ماقصر وضع حل متميز كالمعتاد

مع ذلك فكرتي المتواضعة عن طريق متغير عام

Public k As Byte

هذا المتغير سوف نستخدمه في النموذج والتقرير

في زر امر طباعة نضع الامر

Dim i As Byte
k = 0
For i = 0 To 2
k = k + 1
DoCmd.OpenReport "re1", acViewPreview, , Me.frm1.Form.Filter
DoCmd.PrintOut
Next

في راس التقرير وضعت تسمية

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

If k = 1 Then
Me.tt.Caption = "جزاءات"
ElseIf k = 2 Then
Me.tt.Caption = "ماهيات"
Else
Me.tt.Caption = "ماهيات وجزاءات"
End If

والنتيجة فتاكة ليست الحل الامثل ولكن تؤدي المطلوب

تحياتي

  • Like 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information