PrintSettings.ShowDialog

GoodvinVV / 09.04.2013, 18:15/22:07
Форум: 
Макросы и скрипты
Версия программы: 
16.1.0.843 (sp1)

кто знает почему так?
стоит только скопировать (Ctrl+C) какой-либо объект на странице дока, перестает работать строка кода 

ActiveDocument.PrintSettings.ShowDialog()

и как с этим бороться?

GoodvinVV / 12.04.2013, 17:06

диалоговые окна хранят свои настройки в ini/xml файлах.

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

GoodvinVV / 12.04.2013, 17:54

делай печать полностью через VBA

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

GoodvinVV / 12.04.2013, 17:58

когда PS— там сделал : отписываю все, потом грохаю не нужные, однако время много уходит красок бывает 9и 10

Sancho / 12.04.2013, 23:27

GoodvinVV, во-первых есть кнопка редактировать, не нужно плодить посты по одной строчке.
Во-вторых, по названию можно отпечатать одну краску. Простой пример:

Sub Macro1()
    Dim sp As SeparationPlate
    With ActiveDocument.PrintSettings
      .Separations.Enabled = True
      .Separations.Hexachrome = False
      For c = 1 To .Separations.Plates.Count
        Set sp = .Separations.Plates.item(c)
        If sp.Color <> "Magenta" Then _
          sp.Enabled = False Else sp.Enabled = True
      Next
      .PrintOut
    End With
End Sub
GoodvinVV / 15.04.2013, 12:17/12:33

Sancho, спасибо, нашел где редактировать...,
с СMYK'ом все понятно спасибо

GoodvinVV / 16.04.2013, 15:01/15:22

Замкнутый круг какой то...
включаю "использовать ppd" и всё, капут. отписывает все сепарации

With ActiveDocument.PrintSettings
.UsePPD = True
            .PPDFile = "C:\***\***\страница нужного размера.PPD"
...
...
.Separations.Enabled = True
      .Separations.Hexachrome = False
      For c = 1 To .Separations.Plates.Count
        Set sp = .Separations.Plates.item(c)
        If sp.Color <> "Magenta" Then _
          sp.Enabled = False Else sp.Enabled = True
      Next
 .PrintOut
    End With

Страницы