اضافة زرار فى التقرير لطباعته مرتين

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

اضافة زرار فى التقرير عند الضغط عليه يتم الطباعة مرتين

M_L - Copy (6).rar

[kanory]

جرب هذا ......

DoCmd.SelectObject acReport, "اسم التقرير", True
DoCmd.PrintOut , , , , 2

 

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

نسخة واحدة و الزرار ظاهر

[kanory]

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

نسخة واحدة و الزرار ظاهر

ما فهمت عليك .... كيف نسخة واحدة ؟؟؟؟؟ والزرار ظاهر ؟؟؟؟؟ وضح !!!!

 

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

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

[kanory]

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

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

طبع مرة واحده فقط
+ اضافة للموضوع السابق طباعة صفحة و صفحة عند اضافة الحدود ظهرت فى الصفحة الفرغة 
هل يمكن الغائها

 

M_L - Copy (7).mdb

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

[kanory]

الكود شغال عندي يطبع نسختين ( نسخة كاملة ثم نسخة كاملة اخر ) أي مرتبة ........

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

طبع مرة واحده فقط
+ اضافة للموضوع السابق طباعة صفحة و صفحة عند اضافة الحدود ظهرت فى الصفحة الفرغة 
هل يمكن الغائها

 

اكتب الكود بهذه الصورة .... ثم جرب ....

If (Me.Page / 2) <> Int(Me.Page / 2) Then
    Me.DrawWidth = 10
    Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), , B
    Me.DrawWidth = 0
    Me.Line (20, 20)-(Me.ScaleWidth - 20, Me.ScaleHeight - 20), , B
End If

 

 

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

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

Dim I As Byte
CopyN = InputBox("أدخل عدد النسخ المطلوب طباعتها :", "عدد النسخ")
If IsNumeric(CopyN) Then
For I = 1 To CopyN
DoCmd.OpenReport "mab"
Next I
Else
MsgBox "البيانات التي أدخلتها ليست بيانات رقمية .", vbCritical