[ تمت الإجابة ]زر امر الطباعة

تفضل اخي الكريم

المثال بناء على طلبك

za_PrintOut.rar

	DoCmd.RunCommand acCmdPrint

يبدو ان الاخت زهرة سبقتني

لم اشاهد ردها حين دخلت للمشاركة

بارك الله بك اخي الكريم hema212006

نعم نستخدم هذا الكود لإظهار مربع حوار الطابعة

ولكن لو استخدمنا هذا الأمر بهذه الطريقة سيطبع مباشرة النموذج ونحن نريد التقرير وليس النموذج لذا فإن الحل الوحيد هو ضرورة اختيار التقرير المطلوب لطباعته اولا ثم استخدام امر اظهار مربع الحوار الخاص بالطابعة ولكن ايضا ستواجهنا مشكلة أخرى وهي عند الغاء امر الطباعة فهنا ستظهر لنا رسالة انه تم الغاء اجراء الطباعة لذا فإن الحل الوحيد في مثل هذه الحالة هو استخدام وظيفة عامه ويتم استدعاؤها عند اجراء امر الطباعة وإلغاء رسالة التنبية عند الغاء الطباعة حسب الكود التالي :

وظيفة اظهار مربع حوار الطابعة والغاء رسالة التنبيه في حال تم الغاء الطباعة

Public Function PrintOut()
   On Error GoTo ErrorTrap
   DoCmd.RunCommand acCmdPrint
   Exit Function
ErrorTrap:
   If Err.Number = 2501 Then
	 Exit Function
   Else
	 MsgBox Err.Number & vbCrLf & Err.Description
   End If
End Function

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

Private Sub CmdPrint_Click()
DoCmd.SelectObject acReport, "Report", True
Call PrintOut
End Sub

وهذا ما تم عمله في المثال السابق

شكرا على الاجابة السريعة

وهذا هو المطلوب شكرا للجميع

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة