Снять закраску при распечатывании

[kuklp]

И что? Я не писал, что это запрещено. Но мои личные религиозные убеждения принципиально не позволяют мне помогать кросспостерам.

[IgorGO]

мои религиозные убеждения позволяют помогать кросспостерам.
условий два:
- меня заинтересовал вопрос
или
- за решение вопроса предлагают адекватную сумму денег

я правильно указал последовательность приоритетов.
извините, я не посещаю другие форумы и понятия не имею, кто где кросспостит.

это моя религия. и еще извините, иногда язвлю, когда вопрос - без вопроса, а так - набор фраз.

к данной теме это сообщение не имееет отношения. это просто мысли вслух.

[kartol]

Сообщение от runik

Здрасти Всем! Подскажите почему при печати -печатает цвет ячейки
Надо :При В2=1 ячейка Е2 закрашивается в красный цвет

как то так уйти от условного форматирования
При В2=2 ячейка Е2 белая

[artsanox]

Может так.

[runik]

kartol;artsanox

спасибо, буду пробовать

[kuklp]

После личной переписки с автором выкладываю и свое решение.
В модуль листа:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$2" Then Exit Sub
    [e2].Interior.ColorIndex = IIf([b2] = 1, 3, xlNone)
End Sub

книги:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet
        If .Name <> "Лист1" Then Exit Sub
        .[e2].Interior.ColorIndex = xlNone
        .PrintOut
        .[e2].Interior.ColorIndex = IIf(.[b2] = 1, 3, xlNone)
    End With
    Cancel = True
End Sub

Кнопка не нужна, печатаем щелчком по иконке принтера в меню.

[runik]

Сообщение от kuklp

После личной переписки с автором выкладываю и свое решение.

Спасибо, попробую и этот вариант