طباعة صفه فارغة بين الصفحتين فى التقرير

[محمد احمد لطفى]

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

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

M_L - Copy.rar

تم تعديل مايو 18, 2022 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

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

[محمد احمد لطفى]

طيب هل هنك طريقة نضع بها بين كل صفحتين صفحة فاضية 😇

[أبو عبدالله الحلوانى]

2 ساعات مضت, محمد احمد لطفى said:

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

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

[محمد احمد لطفى]

حاولت و لكن بيأثر على بيانات الصفحة الاولى المشكلة ان التقرير ممكن يبقى اكتر من 6 صفحات 😇

[محمد احمد لطفى]

هل هناك طريقة لوضع صفحة فارغة بين كل صفحتين 🥲

[Moosak]

هذه فكرة أخرى مشاركة لأخي الحلواني @أبو عبدالله الحلوانى 🙂 

إضافة تقرير فرعي وهو عبارة عن صفحة فارغة لذلك ستفصل بين السجلات ..

M_L - Copy.rar

[محمد احمد لطفى]

شكراً أستاذ @Moosak

بتعمل سجل واحج فى الصفحة
أنا بدور على النت بس مش فاهم بيعملوا مثلا صفحة فاضية مكان كل صفحة زوجية ومثلا الموضوع 
https://access-excel.tips/access-report-page-break-by-group-and-add-blank-page/

 

[kanory]

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

If (Me.Page / 2) = Int(Me.Page / 2) Then
    Me.PageHeaderSection.Height = 36 * 287
Else
    Me.PageHeaderSection.Height = 0
End If

جرب واعلمنا بالنتيجة .....

 

[محمد احمد لطفى]

الحمد لله 
أستاذ @kanoryجزاك الله خيراَ
ان أمكن هل يمكن اخفاء الحقول الموجودة بالصورة

[kanory]

استخدم الكود بهذه الطريقة مع اكمال بقية الكائنات بنفس الطريقة ..................

If (Me.Page / 2) = Int(Me.Page / 2) Then
Me.PageHeaderSection.Height = 36 * 287
Me.id_تسمية.Visible = False
Me.date1_تسمية.Visible = False
Else
Me.PageHeaderSection.Height = 0
Me.id_تسمية.Visible = True
Me.date1_تسمية.Visible = True
End If

 

[محمد احمد لطفى]

 رائعة أستاذ @kanory

هستأذنك كيف يكون الأمر مع التقرير الثانى 

[kanory]

3 ساعات مضت, محمد احمد لطفى said:

 رائعة أستاذ @kanory

هستأذنك كيف يكون الأمر مع التقرير الثانى 

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

Me.PageHeaderSection.Height = 36 * 287

 

[محمد احمد لطفى]

 

أستاذى @kanory
أسف جداً النموذج مترفعش 😇
 

M_L - Copy.mdb

[kanory]

7 ساعات مضت, محمد احمد لطفى said:

 

أستاذى @kanory
أسف جداً النموذج مترفعش 😇

تفضل >>>>>>

 

M_L - Copy.mdb

[محمد احمد لطفى]

جزاك الله خيراً أستاذى @kanory
مش ممكن كل ورقة تبقى فيها نفس السجل يعنى مرتين

تم تعديل مايو 27, 2022 بواسطه محمد احمد لطفى

[kanory]

21 دقائق مضت, محمد احمد لطفى said:

جزاك الله خيراً أستاذى @kanory
مش ممكن كل ورقة تبقى فيها نفس السجل يعنى مرتين

نعم تفضل >>>>>>>>>>>>>>>>>>

 

M_L - Copy.mdb

[محمد احمد لطفى]

جزاك الله كل خير تمام هو المطلوب أستاذى @kanory