ابراهيم الشال قام بنشر فبراير 3, 2014 مشاركة قام بنشر فبراير 3, 2014 اخوانى اطلب كود طباعه يتم وضعه في حدثworkbook بحيث يجعل طباعه اى ورقه داخل الملف تكون بدون اي الوان حيث ان الملف يتكون من عدة شيتات رابط هذا التعليق شارك More sharing options...
حمادة باشا قام بنشر فبراير 4, 2014 مشاركة قام بنشر فبراير 4, 2014 الأخ الكريم/ ابراهيم الشال السلام عليكم ورحمة الله وبركاته ضع الكود التالي داخل 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 تقبل تحياتي 2 رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر فبراير 4, 2014 مشاركة قام بنشر فبراير 4, 2014 أخى الكريم وأستاذى القدير / حماده باشا بصراحه كود جميل وجربته أكثر من رائع فعلا عالم الأكواد ليس له آخر بارك الله فيكم وتقبلوا منى وافر الإحترام والتقدير رابط هذا التعليق شارك More sharing options...
ابراهيم الشال قام بنشر فبراير 4, 2014 الكاتب مشاركة قام بنشر فبراير 4, 2014 اخى الفاضل حمادة باشا نشكر لكم اهتمامكم ونشكركم على هذاالكود الرائع ولكن لى طلب تعديل بالكود وهو الطباعه مباشرة دون الرساله التذكيريه التى تظهر رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالله المجرب قام بنشر فبراير 4, 2014 أفضل إجابة مشاركة قام بنشر فبراير 4, 2014 السلام عليكم سيكون الكود هكذا Private Sub Workbook_BeforePrint(Cancel As Boolean) Me.ActiveSheet.PageSetup.BlackAndWhite = True End Sub 1 رابط هذا التعليق شارك More sharing options...
ابراهيم الشال قام بنشر فبراير 4, 2014 الكاتب مشاركة قام بنشر فبراير 4, 2014 اخى عبدالله المجرب هذا هو المطلوب تماما شكرا لكم على هذا الكود الرائع وندعوالله تعالى ان يبارك فيكم ويجزيكم خير الجزاء والشكر موصول ايضا للاخ حمادة باشا وندعوا المولى عز وجل ان يجزيكم عنا خير الجزاء رابط هذا التعليق شارك More sharing options...
حمادة باشا قام بنشر فبراير 4, 2014 مشاركة قام بنشر فبراير 4, 2014 الأخ الكريم/ محمود_الشريف السلام عليكم ورحمة الله وبركاته جزاكم الله خير علي الكلمات الطيبة تقبل تحياتي رابط هذا التعليق شارك More sharing options...
حمادة باشا قام بنشر فبراير 4, 2014 مشاركة قام بنشر فبراير 4, 2014 الأخ الفاضل/ ابراهيم الشال السلام عليكم ورحمة الله وبركاته جزاكم الله خير - تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها