اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طبع المضلل بلون highlighter


ahmedhafez

الردود الموصى بها

السلام عليكم

ليس لدى طابعة لكن جرب هذا

Sub print_colored_rows()
For i = 1 To 20
If Cells(i, 1).Interior.ColorIndex <> xlNone Then
Range(i, 1).EntireRow.PrintOut
End If
Next
End Sub

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information