Перейти к содержанию

Печать. Смена именованного стиля на цветозависимый. Не работает


Рекомендуемые сообщения

Собственно вот простенький код

Sub plotnotplot()
Set objApp = GetObject(, "nanoCAD.Application") 'цепляемся к нане
Set comdoc = objApp.ActiveDocument

Set al = comdoc.ActiveLayout
Set Plot = comdoc.Plot
Set cps = Plot.CustomPlotSettings(al)
'CustomPlotSettings.ColorMode = True
al.PlotWithPlotStyles = True
al.StyleSheet = "monochrome.ctb"

Plot.CustomPlotSettings(al) = cps
objApp.ActiveDocument.Regen acActiveViewport
Plot.PlotToDevice

End Sub

 

Вот исходные настройки чертежа

 

image.thumb.png.add7896c5d965001d52f5532ee3c54d8.png

 

после выполнения вышеприведенного кода, параметры печати как в коде, монохром цветозависимый, но на печать выводится в цвете

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

===============

еще вопрос, за что отвечает ColorMode?

независимо от чекбокса "цветозависимый режим" ColorMode всегда true

 

 

Изменено пользователем doctorraz
Ссылка на сообщение
Поделиться на другие сайты
  • doctorraz изменил название на Печать. Смена именованного стиля на цветозависимый. Не работает

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Восстановить форматирование

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

Загрузка...
  • Расскажите друзьям

    Нравится Официальный форум компании Нанософт? Расскажите друзьям!
×
×
  • Создать...