ما هو كود طباعة شيت بدون ألوان الشيت أي أسود وأبيض ؟

[خيثر يعقوب]

السلام عليكم أريد كود طباعة شيتات معبأة بالألوان لكن عند الطباعة يكون لون المطبوع أسود أبيض لا تتأثر بألوان الشيت الملون .

[أبوبسمله]

عاوز كود ولا واقلك اعدادت الملف العاديه

[خيثر يعقوب]

أريد من فضلك كود . يطبق على جميع الشيتات بدون ما يؤثر على الألوان الأصلية للملف .

تم تعديل يناير 24, 2016 بواسطه خيثر يعقوب

[أبوبسمله]

انا معرفش اكواد بصراحه 

ولكن فى الاعدادات هتقدر تظبطها برضه  ولعل احد الاخوه ياتيك بكود

مرفق صوره 

بالتوفيق اخى 

[ياسر خليل أبو البراء]

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

حاول أن تقوم بها الأمر بسيط إن شاء الله

[أبوبسمله]

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

بارك الله فيك

 

اتفضل الكود اخى الكريم 

وادعى لاخونا ياسر بتذكيرنا اياها 

واذا كان فى اختصار للكود ده هيدلونا عليه طبعا 

Sub Macro1()
'
' Macro1 ãÇßÑæ
' áÌÚá ÇáØÈÇÚå ÇÈíÖ æÇÓæÏ ÝÞØ Ïæä ÊÚÏíá ÊäÓíÞÇÊ ÇáÇáæÇä ÈÇáÔíÊ
'

'
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = True
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
End Sub

بالتوفيق اخى الكريم

[ياسر خليل أبو البراء]

ممكن تلغي كل السطور الخاصة بالإعداد وتبقي هذا السطر فقط لتخفيف الكود ..

.BlackAndWhite = True

 

[خيثر يعقوب]

السلام عليكم ورحمة الله و بركاته أخي ياسر  و أخي أحمد أسأل الله أن يجازيكما خيرا و أن يجعل فيكما النفع على تسهيل الصعاب و خدمة إحوة لكم بعيدين موطنا قريبين قلبا و روحا شكرا شكرا شكرا .

[أبوبسمله]

جزاك الله كل خير اخى ياسر على تعليمنا هذا الاختصار 

وبالتوفيق اخى خيثر وجزاك الله خيرا 

بالتوفيق اخوانى الافاضل

[ياسر خليل أبو البراء]

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

[أبوبسمله]

ليه الاحراج ده بس اخى ياسر 

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

باستخدام for و next 

بالتوفيق

 

[ياسر خليل أبو البراء]

أخي الكريم أحمد

الموضوع بسيط

هتعمل متغير يمثل ورقة العمل بأي اسم تختاره وليكن Ws اختصار Worksheet أو أي اسم يعجبك والمتغير هيكون من النوع Worksheet ورقة عمل

وبعدين تستخدم كلمة For Each وبعدها تذكر اسم المتغير وبعدها حرف الجر In وبعدها المجموعة اللي هتشتغل عليها اللي هي أوراق العمل Worksheets

وبتقفل جملة حلقة التكرار بـكلمة Next يليها اسم المتغير المعين لورقة العمل

وبين السطرين دول بتبدأ تتعامل مع أسطر الكود

أرجو أن يكون الشرح واضح

[أبوبسمله]

يارب يطلع صح علشان الاستاذ ميزعقش ويقول عليا ....... ههههههههههههههه

Sub Macro1()
'
' Macro1 ?C???
' ???? C??EC?? CE?? ?C??I ??? I?? E?I?? E????CE C?C??C? EC?O?E
'

'
 
 ws = Application.PrintCommunication = False
 For Each ws In Worksheets
 
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
        
        .BlackAndWhite = True
       
    End With
    Application.PrintCommunication = True
    Next ws
End Sub

فى انتظار تعليقك على الكود اخى ياسر 

[ياسر خليل أبو البراء]

أخي الفاضل أحمد

بارك الله فيك أيوا كدا الماكنة بدأت تطلع قماااااااااااااااااش

السطر ده مش صحيح

ws = Application.PrintCommunication = False

وداخل الحلقة التكرارية لأنك بتتعامل مع كل أوراق العمل فبكدا انسى الورقة النشطة Acivesheet واتعامل مع المتغير Ws .. ليصبح السطر بهذا الشكل

With Ws.PageSetup

أرجو أن تكون الفكرة قد وضحت

[أبوبسمله]

Sub Macro1()
 For Each Ws In Worksheets
 With Ws.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
        .BlackAndWhite = True
    End With
 
    Next Ws
End Sub

كده تمام ياريس ولا هضرب تانى

[ياسر خليل أبو البراء]

تمام التمام الله ينور عليك ..كدا إنت مية مية

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

فالسطر المطلوب في أول الكود هو Dim يليها اسم المتغير ثم استخدم كلمة As يليها نوع المتغير والنوع كما ذكرت سيكون Worksheet

حاجة تانية ممكن أسأل عنها ايه فايدة السطرين دول!!

.PrintTitleRows = ""
        .PrintTitleColumns = ""

أعتقد ملهومش فايدة بالنسبة للكود

[رجب جاويش]

ونعم المعلم والمتابع

أجمل تحياتى واحترامى للأستاذ ياسر خليل

 

[ياسر خليل أبو البراء]

1 دقيقه مضت, رجب جاويش said:

ونعم المعلم والمتابع

أجمل تحياتى واحترامى للأستاذ ياسر خليل

 

مرورك بأي موضوع لي رد فيه شرف كبير لي أخي ومعلمي رجب جاويش

فمكنم تعلمنا ومازلنا نتعلم ..

جمعني الله وإياك في مستقر رحمته في الفردوس الأعلى من الجنان

تقبل وافر حبي وتقديري وتحياتي

[أبوبسمله]

تمام  معلمى الغالى 

وفعلا هما ملهمش لازمه لانى جربت الكود تمام 

ثانيا اعلم انه يجب تعريف المتغير بــ dim 

ولكن لقلة خبرتى فى تنسيق انواع المتغيرات فكتبتها هكذا 

وطالما انك عوننا لنا بعد الله اخى واخوانى الافاضل فإن شاء الله نستطيع التغلب على العقبات 

وفقكم الله وذادكم الله من فضله وعلمه 

[أبوبسمله]

اخى ابو البراء

ومن باب حب التعلم رجعت للموضوع ده تانى لاضافة تعريف المتغيير الذى لم اقم بتعريفه فى حينه لاننى لا اجيد كتابة الاوامر ومازلت اتعثر

ولكن اعترف اننى عندما قرات مشاركتك بتركيز الان عرفت ان المتغير اللى هنعرفه هنا الى هو ws هيكون متغير وركشيت محدش يكون جعان ويفهم غلط ده مش ورك فرخه هههههههههههههه

المهم

Sub Macro1()
Dim ws As Worksheet
 For Each ws In Worksheets
 With ws.PageSetup
       .BlackAndWhite = True
    End With
    Next ws
End Sub

اخى وحبيبى ابو البراء جزاك الله كل خير واحسن الله إليك كما تحسن إلينا وتصبر علينا

بالتوفيق اخى

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب المتميز أحمد الفلاحجي ..

أحسنت عملاً ..هكذا يجب أن يكون المتعلم صبور ومثابر ولا يسأم ولا يمل ولا يكل ولا .. ولا .. ولا حاجة خلاص خلصت كلام

تقبل تحياتي