عند الضغط على زر طبع يتلون الصف

[عبدالله صباح]

السلام عليكم .. ممكن كود  لتلوين  الصف أو الصفوف  عند القيام بالضغط على زر طبع ,,, جزيتم خيرا

برنامج - تلوين الصف عند القيام بالطبع.xlsm

[أ / محمد صالح]

يمكنك استعمال هذه الحلقات التكرارية للتأكد من تساوي قيمة العمود a في شهر3 مع العمود a في استعلام

ثم تلوين النطاق من a إلى r

lr = Sheets("شهر3").Cells(Rows.Count, 1).End(xlUp).Row
Debug.Print lr
For n = 2 To lr
lr2 = Sheets("استعلام").Cells(Rows.Count, 1).End(xlUp).Row
Debug.Print lr2
For m = 9 To lr2
If Sheets("شهر3").Range("A" & n) = Sheets("استعلام").Range("A" & m) Then
Sheets("شهر3").Range("A" & n & ":R" & n).Interior.Color = 10213316
End If
Next m
Next n

يمكنك وضعها بعد أمر الطباعة

بالتوفيق

[عبدالله صباح]

السلام عليكم .. جزيت خيرا .. الله يرضى عليك ,,, اشتغل الكود