كود طباعة بدون ألوان

[أبو عبد الملك السوفي]

السلام عليكم

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

Sub Print1()
Dim i As Integer
For i = Range("N2") To Range("O2")
Range("N2") = i
If i <= Range("N2") Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
Range("N2").Select
End Sub

[الـعيدروس]

جرب هكذا

Sub Print1()
Dim i As Integer
ActiveSheet.PageSetup.BlackAndWhite = True
For i = Range("N2") To Range("O2")
Range("N2") = i
If i <= Range("N2") Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
Range("N2").Select
End Sub

[احمد فضيله]

 

جرب هكذا

Sub Print1()
Dim i As Integer
ActiveSheet.PageSetup.BlackAndWhite = True
For i = Range("N2") To Range("O2")
Range("N2") = i
If i <= Range("N2") Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
Range("N2").Select
End Sub

جزاك الله كل خير

[أبو عبد الملك السوفي]

السلام عليكم

جزاك الله كل خير أخي عباد الكود جيد

[دغيدى]

أخى عياد

أحسنت وفقكم الله

[أبو عبد الملك السوفي]

السلام عليكم

أخي الحبيب عباد يا حبذا لو تعدل الكود مرة ثانية لو سمحت

فالكود الذي وضعته يحذف لون التعبئة مهما كان ولكني أريد من الكود أن يحذف كل الالوان معدا الاسود وتدرجات.