Печатать без цвета

[kartol]

Подскажите,как прописать или макросом сделать- чтобы при печати не печатолось выделение ячеек(цвет ячейки)

[Казанский]

В Excel 2000: Параметры страницы - Лист - Печать - черно-белая.

[kartol]

Сообщение от Казанский

В Excel 2000: Параметры страницы - Лист - Печать - черно-белая.

Это не подойдёт т.к.на листе будут ячейки которые нужно печатать в цвете
А конкретно этот диапазон (А9:А21) нужно печатать без цвета

[EducatedFool]

на листе будут ячейки которые нужно печатать в цвете

а сразу нельзя было об этом сказать?

Запишите макрос, который создаёт копию листа, удаляет заливку из диапазона А9:А21, отправляет лист на печать, удаляет временный лист.

Sub ПечатьБезЗаливки()
    ActiveSheet.Copy ActiveSheet ' создаём копию листа
    ActiveSheet.Range("a9:a21").Interior.ColorIndex = 0 ' убираем заливку
    ActiveSheet.PrintOut ' выводим на печать
    ' удаляем временный лист
    Application.DisplayAlerts = False: ActiveSheet.Delete: Application.DisplayAlerts = True
End Sub

[kartol]

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

Запишите макрос, который создаёт копию листа, удаляет заливку из диапазона А9:А21, отправляет лист на печать, удаляет временный лист.

Sub ПечатьБезЗаливки()
    ActiveSheet.Copy ActiveSheet ' создаём копию листа
    ActiveSheet.Range("a9:a21").Interior.ColorIndex = 0 ' убираем заливку
    ActiveSheet.PrintOut ' выводим на печать
    ' удаляем временный лист
    Application.DisplayAlerts = False: ActiveSheet.Delete: Application.DisplayAlerts = True
End Sub

Данный макрос на A9:A21 не работает скорее всего наверное потому что для них применено условное форматирование.