[CDR X5-X8] Макрос Экспорта в PDF

[Griffin_kk]

Действительно, зачем паролить то? Особой интеллектуальной собственности не вижу, а данный макрос в качестве примера мог бы другим быть полезен.
И вообще, желательно сразу код сюда выкладывать, а не GMS, а то, я смотрю, они в X7 формат сменили что ли, что макрос нигде больше не открывается?

почему? он в x8 вставился и работает

 

[_MBK_]

почему? он в x8 вставился и работает

Ниже X7 не открывается нигде, во всяком случае, у меня
Странно, но до этого GMS были совместимы во все стороны

 

[BASMACH]

Sub savepdf2()

ActiveDocument.Unit = cdrMillimeter
  Dim page As Currency, page1 As String, b As String
  b = Left(ActiveDocument.FileName, Len(ActiveDocument.FileName) - 4)
page = 1
d = "D:\pr\": naz = ".pdf"
   
    For Each v In ActiveDocument.Pages

ActiveDocument.Pages(page).Activate
  With ActiveDocument.PDFSettings
        .PublishRange = 1
        .PageRange = page
        .Author = "KOSTER"
        .Subject = ""
        .Keywords = ""
        .BitmapCompression = 0 ' CdrPDFVBA.pdfNone
        .JPEGQualityFactor = 10
        .TextAsCurves = True
        .EmbedFonts = True
        .EmbedBaseFonts = True
        .TrueTypeToType1 = True
        .SubsetFonts = True
        .SubsetPct = 80
        .CompressText = False
        .Encoding = 1 ' CdrPDFVBA.pdfBinary
        .DownsampleColor = False
        .DownsampleGray = False
        .DownsampleMono = False
        .ColorResolution = 200
        .MonoResolution = 600
        .GrayResolution = 200
        .Hyperlinks = False
        .Bookmarks = False
        .Thumbnails = False
        .Startup = 0 ' CdrPDFVBA.pdfPageOnly
        .ComplexFillsAsBitmaps = True
        .Overprints = True
        .Halftones = False
        .MaintainOPILinks = False
        .FountainSteps = 256
        .EPSAs = 1 ' CdrPDFVBA.pdfPreview
        .pdfVersion = 4 ' CdrPDFVBA.pdfVersionPDFX1a
        .IncludeBleed = False
        .Bleed = 0
        .Linearize = False
        .CropMarks = False
        .RegistrationMarks = False
        .DensitometerScales = False
        .FileInformation = False
        .ColorMode = 1 ' CdrPDFVBA.pdfCMYK
              .ColorProfile = 1 ' CdrPDFVBA.pdfSeparationProfile
         .EmbedFilename = ""
        .EmbedFile = False
        .JP2QualityFactor = 10
        .TextExportMode = 0 ' CdrPDFVBA.pdfTextAsUnicode
        .PrintPermissions = 0 ' CdrPDFVBA.pdfPrintPermissionNone
        .EditPermissions = 0 ' CdrPDFVBA.pdfEditPermissionNone
        .ContentCopyingAllowed = False
        .OpenPassword = ""
        .PermissionPassword = ""
        .EncryptType = 1 ' CdrPDFVBA.pdfEncryptTypeStandard
        .OutputSpotColorsAs = 0 ' CdrPDFVBA.pdfSpotAsSpot
        .OverprintBlackLimit = 95
    End With
page1 = ActiveDocument.Pages(page).Name

   ActiveDocument.PublishToPDF d & b & page1 & naz
    page = page + 1
    Next v
End Sub

 

[Griffin_kk]

спасибо огромадное

 

[Griffin_kk]

@BASMACH, обнаружилась такая проблема

текст был с однородной прозрачностью 99% в режиме умножения (подложки разные на шаблонах)

отменил прозрачность, цвет K - 100

Результат тот же...

Бяда

 

[Jeine]

Бяда

Так выложите сюда эту "бяду", чтоб не созывать клуб бабы Ванги.

 

[Griffin_kk]

Так выложите сюда эту "бяду", чтоб не созывать клуб бабы Ванги.

выше выложен макрос (код)

 

[Jeine]

И? Если запустить макрос на другом файле, то всё равно в нём будет эта же результирующая картинка?

 

[Griffin_kk]

макрос запуска в x8
проблема та же

объект наполовину битый

за попробую другой файл


попробовал... у других файлов тоже случаются артефакты... некоторые векторные объекты - местами битые...

никогда раньше не сталкивался с подобным при экспорте в pdf... не ожидал

 

[Jeine]

Всё просто: прозрачности – зло.
Так будет почти всегда, если вектор содержит прозрачности/эффекты или находится ниже объекта с прозрачностью и этот объект пересекается с вектором.

 

[splxgf]

Прозрачности это добро, а вот когда их плющат всякие "добрые" дяденьки, то они становятся злом.

        .pdfVersion = 4 ' CdrPDFVBA.pdfVersionPDFX1a

Поправить на что-то более подходящее.

 

[Griffin_kk]

проблема решилась
вместо:
.pdfVersion = 4 ' CdrPDFVBA.pdfVersionPDFX1a

сделал более позднюю версию:
.pdfVersion = 6 ' CdrPDFVBA.pdfVersionPDFX1a

как было приятно самому допетрить.... )))

 

[_MBK_]

Видите как замечательно, когда открытый код лежит на форуме. Коллективный разум в состоянии быстро решить любую проблему ;-)

 

[BASMACH]

Прозрачности это добро, а вот когда их плющат всякие "добрые" дяденьки, то они становятся злом.

        .pdfVersion = 4 ' CdrPDFVBA.pdfVersionPDFX1a

Поправить на что-то более подходящее.

Ну это сделано для того ,что бы после рипа не вылезли всякие артефакты, таковы требования у нас. Прозрачности, эффекты дорабатываются при подготовке.

 

[_MBK_]

На самом деле, если вдуматься, то самое главное зло тут - эта самая 99 процентная прозрачность в режиме умножения. Какой сакральный смысл в ней был - оверпринт? Так и надо было прямо оверпринт делать без этой потенциальной бомбы замедленного действия

 

[Inversion]

попробовал... у других файлов тоже случаются артефакты... некоторые векторные объекты - местами битые...

никогда раньше не сталкивался с подобным при экспорте в pdf... не ожидал

это норма для корела, если если pdf версии ниже 1.4

 

[Jeine]

это норма для корела, если если pdf версии ниже 1.4

Если использовать руками экспорт, то всё скорее всего будет нормально.
1 - виртуальный принтер и дистиллер в версию 1.3
2 - экспорт в версию 1.3

 

[Inversion]

Если использовать руками экспорт, то всё скорее всего будет нормально.

экспорт в версию 1.3 из х3

 

[Jeine]

У меня нет под рукой x3.
Мною экспорт был выполнен из-под x5.

 

[_MBK_]

Ключевая фраза

из х3

Насколько я могу судить, до X6 движок импорта-экспорта PDF у корела был чуть лучше, чем никакой