Re: Глюк VBA с overprint. Нужна помощь

Написал AsdPiton в 23/11/2009 17:22:54

wOxxOm
Так и делал.

Вообщем поломали голову и сделали так:

Sub expjpg()
Dim op As New StructExportOptions
Dim pa As New StructPaletteOptions
Dim Filter As CorelDRAW.ExportFilter
' Dim op As New StructImportOptions
op.AntiAliasingType = cdrSupersampling

op.Dithered = False
op.ImageType = cdrCMYKColorImage
op.MaintainAspect = True
op.MaintainLayers = True
op.Compression = cdrCompressionNone
op.Overwrite = True
op.ResolutionX = 300
op.ResolutionY = 300
op.Transparent = False
op.UseColorProfile = True

kkk = cdrTIFF

named = ActiveDocument.Name

Dim s1 As Shape
Set s1 = ActivePage.Shapes.All.ConvertToBitmapEx(cdrCMYKColorImage, False, False, 300, cdrNormalAntiAliasing, True, True, 95)
Dim expflt As ExportFilter
ActiveDocument.Export "\\orange\maket\chastnye\" & named & ".tif", kkk, cdrCurrentPage, op

ActiveDocument.Undo
End Sub

Работает как часики.

2Модераторы: Предлагаю переименовать тему во что-нибудь вроде "Экспорт Tiff макросом из Корела" и закинуть в ЧАВО.