السلام عليكم
أرجو تعديل كود الطباعة هذا حتى تتم الطباعة بدون ألوان (أي الطباعة بالاسود والابيض فقط
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