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

Статус
Закрыто для дальнейших ответов.

BASMACH

10 лет на форуме
Сообщения
52
Реакции
8
В ручную- настройка компрессии включена ? в макросе без сжатия
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 137
Реакции
10 835
настройка компрессии включена ?
Компрессия чего - текста?
Навряд ли это сильно на размер влияло бы.
Даунсамплинг отключен, это да
Текст в кривых, но шрифты включаются, и т.д., простор для вангования огромен.
Поэтому правильнее всего было бы приложить два PDF файла - один экспортированный макросом, второй руками "в настройках врое все норм" - и все станет очевидно.
 

Griffin_kk

Участник
Топикстартер
Сообщения
47
Реакции
3
Компрессия чего - текста?
Навряд ли это сильно на размер влияло бы.
Даунсамплинг отключен, это да
Текст в кривых, но шрифты включаются, и т.д., простор для вангования огромен.
Поэтому правильнее всего было бы приложить два PDF файла - один экспортированный макросом, второй руками "в настройках врое все норм" - и все станет очевидно.


заменил в скрипте значение в строке
.BitmapCompression = 0 ' CdrPDFVBA.pdfNone
на .BitmapCompression = 2 ' CdrPDFVBA.pdfNone

файл без потери качества (визуально не заметил ничего) стал весить 28 мб. вместо 77
это прорыв '))') но все равно много, по сравнению с 3 метрами
 

Griffin_kk

Участник
Топикстартер
Сообщения
47
Реакции
3
у меня такой код (многое изменил чтобы найти причину)
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:\WORK\ЭКСПОРТ\": naz = ".pdf"

For Each v In ActiveDocument.Pages

ActiveDocument.Pages(page).Activate
With ActiveDocument.PDFSettings
.PublishRange = 1
.PageRange = page
.Author = "KOSTER"
.Subject = ""
.Keywords = ""
.BitmapCompression = 2 ' CdrPDFVBA.pdfNone
.JPEGQualityFactor = 2
.TextAsCurves = True
.EmbedFonts = False
.EmbedBaseFonts = False
.TrueTypeToType1 = False
.SubsetFonts = False
.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 = False
.Overprints = True
.Halftones = False
.MaintainOPILinks = False
.FountainSteps = 256
.EPSAs = 1 ' CdrPDFVBA.pdfPreview
.pdfVersion = 6 ' 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
если изменить значение .JP2QualityFactor = 10
на .JP2QualityFactor = 100...
то файл весит 5 метров и выглядит так же как и при значении 10...

понимаю что нао менять строку .BitmapCompression = 2 ' CdrPDFVBA.pdfNone
но какое значение правильное?
.BitmapCompression = 2 ' CdrPDFVBA.pdfZIP
или .BitmapCompression = 2 ' CdrPDFVBA.pdfLZW
 
Последнее редактирование:

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 137
Реакции
10 835
Любая жпег компрессия внутри полиграфического PDF - зло, которое надо выжигать каленым железом.
 

Griffin_kk

Участник
Топикстартер
Сообщения
47
Реакции
3
прикол.
купил новый ноут. на нем win 10
установил всё тоже самое, тот же дистрибутив CorelDraw, тот же макрос (экспорт импорт)
в итоге: на старом ноуте (там Win8) файл получается 400кб, на новом в пять раз больше..
если на старом мегабайт, то на новом 5...
где искать косяк - вообще не ясно... как это может быть... не понятно
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 137
Реакции
10 835
Все очень просто
Нужно приложить сюда оба файла и местные вангаторы мгновенно препарировав их найдут причину
 

Griffin_kk

Участник
Топикстартер
Сообщения
47
Реакции
3
оба файла после экспорта???
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 137
Реакции
10 835
Естественно
 

Griffin_kk

Участник
Топикстартер
Сообщения
47
Реакции
3
а как?
pdf не вставляются
ссылки на гуглдиск тоже нельзя
 

Jeine

Да здравствует разум! Да сгинет маразм!
15 лет на форуме
Сообщения
7 245
Реакции
6 279

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 137
Реакции
10 835
Зазипуйте
 

Griffin_kk

Участник
Топикстартер
Сообщения
47
Реакции
3
короче добавил на местный файлообменник
 

Jeine

Да здравствует разум! Да сгинет маразм!
15 лет на форуме
Сообщения
7 245
Реакции
6 279
Ну, из новых добавленных найти, конечно, совсем нетрудно, но обычно ссылку публикуют в сообщении.
 

Griffin_kk

Участник
Топикстартер
Сообщения
47
Реакции
3

Jeine

Да здравствует разум! Да сгинет маразм!
15 лет на форуме
Сообщения
7 245
Реакции
6 279

Jeine

Да здравствует разум! Да сгинет маразм!
15 лет на форуме
Сообщения
7 245
Реакции
6 279
@Griffin_kk, В этих двух файлах разные pdf-продюсеры: 17.4.0.887 и 17.6.0.1021
Наверное, в новом подправили что-то разработчики, вот и результат другой (размер файла меньше).
 

Jeine

Да здравствует разум! Да сгинет маразм!
15 лет на форуме
Сообщения
7 245
Реакции
6 279
Скорее всего, на новом кореле (точнее, на новом буке) не хватает какого-то обновления для корела.
 
Статус
Закрыто для дальнейших ответов.