محمد احمد لطفى قام بنشر مايو 28, 2022 مشاركة قام بنشر مايو 28, 2022 اضافة زرار فى التقرير عند الضغط عليه يتم الطباعة مرتين M_L - Copy (6).rar رابط هذا التعليق شارك More sharing options...
kanory قام بنشر مايو 28, 2022 مشاركة قام بنشر مايو 28, 2022 جرب هذا ...... DoCmd.SelectObject acReport, "اسم التقرير", True DoCmd.PrintOut , , , , 2 1 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر مايو 28, 2022 الكاتب مشاركة قام بنشر مايو 28, 2022 نسخة واحدة و الزرار ظاهر رابط هذا التعليق شارك More sharing options...
kanory قام بنشر مايو 28, 2022 مشاركة قام بنشر مايو 28, 2022 8 دقائق مضت, محمد احمد لطفى said: نسخة واحدة و الزرار ظاهر ما فهمت عليك .... كيف نسخة واحدة ؟؟؟؟؟ والزرار ظاهر ؟؟؟؟؟ وضح !!!! 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر مايو 28, 2022 الكاتب مشاركة قام بنشر مايو 28, 2022 قمت بوضع زرار فى التقرير ووضعت الكود داخله كانت النتيجة وجود الزرار و الطباعة نسخة واحدة رابط هذا التعليق شارك More sharing options...
kanory قام بنشر مايو 28, 2022 مشاركة قام بنشر مايو 28, 2022 ضع الزر في النموذج وليس في التقرير .... ثم انسخ الكود السابق والصقة في حدث عند النقر .... واخبرنا بالنتيجة ... 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد احمد لطفى قام بنشر مايو 28, 2022 الكاتب أفضل إجابة مشاركة قام بنشر مايو 28, 2022 (معدل) طبع مرة واحده فقط + اضافة للموضوع السابق طباعة صفحة و صفحة عند اضافة الحدود ظهرت فى الصفحة الفرغة هل يمكن الغائها M_L - Copy (7).mdb تم تعديل مايو 28, 2022 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
kanory قام بنشر مايو 28, 2022 مشاركة قام بنشر مايو 28, 2022 الكود شغال عندي يطبع نسختين ( نسخة كاملة ثم نسخة كاملة اخر ) أي مرتبة ........ 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 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر مايو 28, 2022 الكاتب مشاركة قام بنشر مايو 28, 2022 أستاذى @kanory جزاك الله خيرا الحدود اتشالت كود الطباعة انا عارف انه سليم بس مشتغلش بيطبع مره واحده و بالبحث وجدت كود للأستاذة زهرة و اشتغل تمام Dim I As Byte CopyN = InputBox("أدخل عدد النسخ المطلوب طباعتها :", "عدد النسخ") If IsNumeric(CopyN) Then For I = 1 To CopyN DoCmd.OpenReport "mab" Next I Else MsgBox "البيانات التي أدخلتها ليست بيانات رقمية .", vbCritical 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان