[DonVik]

Всем доброго. При печати мне нужно заставить солид включить в параметре страницы цвет чертежа Черно-белый.
Вот так пытаюсь:

Код:

[Выделить все]

Model.SetUserPreferenceToggle swPageSetupPrinterDrawingColor, swPageSetup_BlackAndWhite
Model.Extension.PrintOut2 vPageArray, copies, collate, "", ""

Но никакой реакции.
Кто-нибудь знает как правильно настраивать свойства печати?
Что я неверно делаю?

[IFU]

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swPageSetup As PageSetup

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swPageSetup = swModel.PageSetup
swPageSetup.DrawingColor = swPageSetup_BlackAndWhite
End Sub

[DonVik]

О-о-о-о!!
Спасибо!.
Вот уж не думал что в не ту степь пошел. Думал раз пользовательские настройки то и в их API контексте искать панацею надо, а утт оказывается все проще.

[IFU]

Сообщение от DonVik О-о-о-о!! Спасибо!. Вот уж не думал что в не ту степь пошел. Думал раз пользовательские настройки то и в их API контексте искать панацею надо, а утт оказывается все проще.

Не Вас одного ввело в заблуждение установка этого свойства.
по справке API вообще какаято чуш написана. Тоже не работает