أرجو المساعدة في الكود التالي لا يعمل ( طباعة النموذج أو التقرير في أكسس 2010 )
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF1: DoCmd.PrintOut acPages, 1, 1, , 1
End Select
End Sub
مع العلم أنه يعمل جيدا في الإصدارات السابقة من الأكسس
المطلوب هو أنه بمجرد الضغط على زر F1 يقوم بطباعة الصفحة الأولى من التقرير بنسخة واحدة و F2 نسختان و F3 ثلاث نسخ
مع الشكر
أتمنى منكم أيها الأحبة مساعدتي
البراق كتب:أرجو المساعدة في الكود التالي لا يعمل ( طباعة النموذج أو التقرير في أكسس 2010 )
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF1: DoCmd.PrintOut acPages, 1, 1, , 1
End Select
End Sub
مع العلم أنه يعمل جيدا في الإصدارات السابقة من الأكسس
المطلوب هو أنه بمجرد الضغط على زر F1 يقوم بطباعة الصفحة الأولى من التقرير بنسخة واحدة و F2 نسختان و F3 ثلاث نسخ
مع الشكر
تفضل اخي الكريم
مثال على الأكسيس 2010
يجب ان تقوم بعمل هذه الخطوة
1. افتح التقرير في وضع التصميم
2. اختر تبيوب الكل
3. اختر طريقة العرض الإفتراضية : طريقة عرض التقرير
4. احفظ التقرير ثم قم بإغلاقة
ملاحظة : مفتاح المساعدة F1 محجوز للنظام ولا تستطيع استخدامه
ولكن تستطيع استخدام المفاتيح F2 و F3 و F4
لا تنسانا من التقييم بارك الله بك
بالتوفيق
شكراً لكي أستاذتي المبدعة زهرة
ولكن لازالت المشكلة
مع العلم عندي أوفس 2010
مرفق صورة من المشكلة
البراق كتب:شكراً لكي أستاذتي المبدعة زهرة
ولكن لازالت المشكلة
مع العلم عندي أوفس 2010
مرفق صورة من المشكلة
اخي الفاضل
تظهر رسالة الخطأ هذه عندما يكون النموذج او التقرير مفتوح لذا يجب ان يتم اغلاقها اولا ثم تنفيذ الحدث وهو الطباعة
حسنا قمت بحذف النموذج لأنك فيما يبدو تركته مفتوح
الآن افتح التقرير ثم اضغط على المفتاح F2 لطباعة الصفحة الأولى من التقرير نسخة واحده
او F3 لطباعة نسختين من الصفحة الأولى من التقرير
او F4 لطباعة ثلاث نسخ من الصفحة الاولى من التقرير
في كل الحالات سيتم اولا اغلاق النموذج ثم ارسال امر الطباعة للطابعة
اخبرنا بالنتيجة بارك الله بك فلا يوجد اي خطأ في الكود او في البرنامج
قاعدة البيانات هذه معمولة على اكسيس 2010
بالتوفيق
تم تعديل هذه المشاركة بواسطة zahrah في 22 نوفمبر 2012 في 17:09
صدقتي استاذة زهرة فعلاً تتم الطباعة بالشكل المطلوب
لكن أين النموذج أختفى
س: هل من الممكن طباعة التقرير من النموذج مباشرة بدون فتح التقرير وبالعدد المطلوب من النسخ كما في التقرير باستخدام F2 F3 F4
شكرا جزيلاً استاذتي الفنانة المبدعة
البراق كتب:صدقتي استاذة زهرة فعلاً تتم الطباعة بالشكل المطلوب
لكن أين النموذج أختفى
س: هل من الممكن طباعة التقرير من النموذج مباشرة بدون فتح التقرير وبالعدد المطلوب من النسخ كما في التقرير باستخدام F2 F3 F4
شكرا جزيلاً استاذتي الفنانة المبدعة
اخي الفاضل : البراق
بارك الله بك على ابلاغنا بالنتيجة
بالنسبة للنموذج فقد حذفته حتى لا يسبب لك مشاكل فقد تتركه مفتوح من باب الخطأ او النسيان لذا تم حذفه والإكتفاء بالتقرير فقط
بالنسبة لموضوعك هذا بالذات فأنت تستخدم امر PrintOut وهذا الأمر بالذات يتطلب اولا وجود كائن مفتوح عند سواء نموذج او تقرير او اي كائن من كائنات قاعدة البيانات ثم انك تريد ان يتم امر الطباعة بواسطة مفاتيح المساعدة
لذا فإنه عند الضغط على اي مفتاح من مفاتيح المساعدة سواء F2 او F3 او F4 فإنه ينشأ عن ذلك وجود حدثين وهما حدث الضغط على مفتاح للأسفل وحدث ارسال امر الطباعة للطابعة وفي برنامج الأكسيس لا يمكن تنفيذ حدثين في نفس الوقت وإلا ستظهر رسالة خطأ بأن هناك تعارض في تنفيذ الأحداث وسيكون رقم الخطأ هو 2585 .
لذا للحصول على الطريقة الصحيحة لعدم التعارض هو اولا تنفيذ امر الضغط على مفتاح المساعدة ومباشرة اغلاق الكائن المفتوح ثم تنفيذ حدث امر الطباعة .
اما اذا رغبت في تنفيذ امر الطباعة من النموذج وبدون فتح التقرير وبعدد محدد من النسخ وايضا اختيار الصفحات فإنت تحتاج الى اكواد اضافية ومربعات نص لوضع المطلوب من عدد النسخ واختيار الصفحات المطلوب طباعتها ثم الضغط على زر أمر لتنفيذ امر الطباعة وسيتم الغاء اوامر مفاتيح المساعدة .
اذا رغبت في عمل مثل هذا النموذج فلا يوحد اي مشكلة سنقوم بعمله لك .
لا تنسانا من التقييم بارك الله بك
بالتوفيق
تم تعديل هذه المشاركة بواسطة zahrah في 23 نوفمبر 2012 في 11:58
شكرا إستاذة زهرة .. أشكرك كثيرا .. بارك الله فيكي
أتمنى عمل النموذج الذي يقوم بالطباعة مباشرة وبدون تكليف عليكي إن أمكن ذلك
استاذة لقد جربت الكود التالي وقد قام بطباعة التقرير لنسخة واحدة فقط
Case vbKeyF5: DoCmd.OpenReport "REPORT_NAME",acNormal
جزاكي الله خير الجزاء
تفضل اخي الكريم : البراق
التحكم الكامل في طباعة التقرير
عند فتح قاعدة البيانات سيظهر لك هذا النموذج
*. سيتم عرض الطابعة الإفتراضية لديك مباشرة في النموذج
وبإمكانك اختيار اي طابعة غير الإفتراضية لعملية الطباعة
في حال انه لا يوجد لديك اي طابعة على الجهاز سيتم عرض رسالة تنبيه ويتم اغلاق النموذج .
*. حجم الورق : الإفتراضي A4
بإمكانك الإختيار بين احجام الورق المتوفره
A4
Letter
Legal
Statement
Executive
*. نوعية الطباعة : الإفتراضي ملون Color
بإمكانك الإختيار بين
ملون Color
ابيض واسود Black And White
*. درج اوراق الطباعة : الإفتراضي Default
وبإمكانك الإختيار بين
تحديد تلقائي Default
علوي Upper
متوسط Middle
سفلي Lower
*. عدد النسخ المطلوبة : الإفتراضي ( 1 )
بإمكانك وضع العدد المطلوب لطباعة التقرير
*. نطاق الطباعة : الإفتراضي ( الكل )
بإمكانك الإختيار بين
الكل
الصفحات من - الى
*. تخطيط الورق : الإفتراضي ( طولي )
بإمكانك الإختيار بين
طولي
عرضي
*. معاينة التقرير
*. طباعة التقرير
ملاحظة : بعد الإنتهاء من عمل الإختيارات الخاصة بطباعة تقرير به عدة الوان وخاصة عند اختيار طباعة التقرير باللون الأبيض والأسود فإنه لا يظهر ذلك في المعاينة لأن هذا الأمر خاص بالطابعة ولكن ستراه عند طباعة التقرير بأنه تمت الطباعة باللون الأبيض والأسود .
حتى لا يأتي احد الأعضاء ويقول انه اختار اللون الأبيض والأسود وتقريره اصلا ملون وظهر له في المعاينة التقرير ملون . فكما اسلفت امر الطباعة بالألوان او بالأبيض والأسود خاص بالطابعة فقط وليس للتقرير .
لا تنسانا من التقييم بارك الله بك
za-FullControlOfPrintReport2010.rar
بالتوفيق
شكرا أختي واستاذتي المبدعة زهرة ..
بارك الله فيكي وأطال الله في عمرك وسدد خطاكي في عمل الخير وأثابكي عليه ..
