ОверПринт и записанный макрос

[KingOF]

Записываю последовательность действий в макрос.
Экспорт тифа с галочкой на always overprint black, все экспортируется отлично, дырки под черным текстом нет. Когда воспроизвожу записанный макрос оверпринта нет.
Кто знает как решить проблему?

 

[wOxxOm]

Ответ: ОверПринт и записанный макрос

текст макроса давайте и где именно галочка

 

[KingOF]

Ответ: ОверПринт и записанный макрос

Sub tiff()
    '
    ' Recorded 29.10.2007
    '
    ' Description:
    '
    '
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    Dim expflt As ExportFilter
    Set expflt = ActiveDocument.ExportBitmap("C:\buklet(Curves)..tif", cdrTIFF, cdrSelection, cdrCMYKColorImage, 1748, 2480, 300, 300, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone)
    expflt.Finish
End Sub

Галочка на "always overprint black"

 

[wOxxOm]

Ответ: ОверПринт и записанный макрос

Пришлось обходить глюк с отсутствием AlwaysOverprintBlack в опциях фильтра экспорта - надо сначала перевести объекты в битмап а затем его экспортировать.

Sub tiff()
   if ActiveShape is nothing then beep: Exit sub
   On Error Resume Next
   EventsEnabled = False

   ActiveSelectionRange.ConvertToBitmapEx( _
      cdrCMYKColorImage, False, False, 300, _
      cdrNormalAntiAliasing, UseColorProfile:=True, _
      AlwaysOverprintBlack:=True, OverprintBlackLimit:=95).Bitmap.SaveAs( _
         ActiveDocument.FilePath & ActiveDocument.Name & " (curves).TIF", _
         cdrTIFF, cdrCompressionNone).Finish
   
   ActiveDocument.Undo
   EventsEnabled = True
End Sub

Вот ActiveDocument.FilePath & ActiveDocument.Name & " (curves).TIF" создает при экспорте тиф файл в папке документа с именем документа и добавкой слова curves.

Работает с выделенными объектами.

 

[KingOF]

Ответ: ОверПринт и записанный макрос

Отлично. Спасибо. Да здравствуют программеры !

 

[KingOF]

Ответ: ОверПринт и записанный макрос

я кстати о чем то подобном думал, но правда через одно место