مطلوب كود طباعه

[ابراهيم الشال]

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

[حمادة باشا]

الأخ الكريم/ ابراهيم الشال

السلام عليكم ورحمة الله وبركاته

ضع الكود التالي داخل ThisWorkbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Style = vbYesNo + vbQuestion + vbDefaultButton2
Title = "خيارات الطباعة"
msg = "هل تود الطباعة أسود وأبيض"
Response = MsgBox(msg, Style, Title)
If Response = vbYes Then
    Me.ActiveSheet.PageSetup.BlackAndWhite = True
Else
    Me.ActiveSheet.PageSetup.BlackAndWhite = False
End If
End Sub

تقبل تحياتي

 

[محمود_الشريف]

أخى الكريم

وأستاذى القدير / حماده باشا

بصراحه كود جميل وجربته أكثر من رائع

فعلا عالم الأكواد ليس له آخر

بارك الله فيكم 

وتقبلوا منى وافر الإحترام والتقدير 

[ابراهيم الشال]

اخى الفاضل

حمادة باشا

نشكر لكم اهتمامكم ونشكركم على هذاالكود الرائع  ولكن لى طلب تعديل بالكود وهو الطباعه مباشرة دون الرساله التذكيريه التى تظهر

[عبدالله المجرب]

السلام عليكم 

سيكون الكود هكذا 

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Me.ActiveSheet.PageSetup.BlackAndWhite = True

End Sub

[ابراهيم الشال]

اخى 

عبدالله المجرب

هذا هو المطلوب تماما 

شكرا  لكم على هذا الكود الرائع  وندعوالله تعالى ان يبارك فيكم ويجزيكم خير الجزاء

والشكر موصول ايضا للاخ

حمادة باشا

وندعوا المولى عز وجل ان يجزيكم عنا خير الجزاء

[حمادة باشا]

الأخ الكريم/ محمود_الشريف

السلام عليكم ورحمة الله وبركاته

جزاكم الله خير علي الكلمات الطيبة

تقبل تحياتي

[حمادة باشا]

الأخ الفاضل/ ابراهيم الشال

السلام عليكم ورحمة الله وبركاته

جزاكم الله خير - تقبل تحياتي