Заливка таблиц

[CyberMen]

Во вложенном файле есть 2 ситуации:
Особенность в том, что Свойства - Таблица - Параметры - Поля ячеек по умолчанию - Верхнее и нижнее по 0,1 см.
Таблица 1 - заливка применена с помощью макросов:

Sub m_1()
With Selection.Cells.Shading
    .Texture = wdTextureNone
    .ForegroundPatternColor = wdColorAutomatic
    .BackgroundPatternColor = wdColorBlue
End With
End Sub
Sub m_2()
With Selection.Cells.Shading
    .Texture = wdTextureNone
    .ForegroundPatternColor = wdColorAutomatic
    .BackgroundPatternColor = wdColorRed
End With
End Sub

Пояснение. Выделяем всю таблицу и применяем макрос m_1. Затем выделяем первый столбец и применяем макрос m_2.

Таблица 2: делаем то же самое, но только через интерфейс: выделяем всю таблицу - Формат - Границы и заливка - Заливка - Синий - Применить к ячейке - Окей.
Затем выделяем первый столбец - Формат - Границы и заливка - Красный - Применить к ячейке - Окей.

Результаты можно посмотреть, распечатав данный документ в виртуальном принтере (doPDV - бесплатный принтер, или др. принтер, например, PDF).

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

[javvva]

я так понимаю что имеется в виду синий цвет? это скорей всего связано с тем, что wdColorBlue = 0,0,255. а в офисе другие настройки для цвета. в данном случае 0,0,128.

[CyberMen]

javvva
если ты распечатаешь этот файл, то поймёшь в чём дело.

[viter.alex]

Я распечатал и что? Да, цвета разные, но они и в документеразные. В чём суть?

[CyberMen]

viter.alex
я случайно цвета перепутал, вот др. файл вложу, чтобы не было вопросов.
У меня вот так распечатывает (см. рис. 2).

[viter.alex]

А у меня не так. Печатаю с помощью pdfFactory

[CyberMen]

viter.alex
да, дела, а у меня такое и в PDF и в doPDF и на реальных принтерах. И такое бывает. А попробуй через PDF или doPDF.