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

[BASMACH]

В ручную- настройка компрессии включена ? в макросе без сжатия

 

[_MBK_]

настройка компрессии включена ?

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

 

[Griffin_kk]

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

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

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

 

[Griffin_kk]

у меня такой код (многое изменил чтобы найти причину)

Спойлер: код скрипта

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_]

Любая жпег компрессия внутри полиграфического PDF - зло, которое надо выжигать каленым железом.

 

[Griffin_kk]

Любая жпег компрессия внутри полиграфического PDF - зло, которое надо выжигать каленым железом.

тога надо включить как-то компрессию ZIP

 

[Griffin_kk]

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

 

[_MBK_]

Все очень просто
Нужно приложить сюда оба файла и местные вангаторы мгновенно препарировав их найдут причину

 

[Griffin_kk]

оба файла после экспорта???

 

[_MBK_]

Естественно

 

[Griffin_kk]

а как?
pdf не вставляются
ссылки на гуглдиск тоже нельзя

 

[Jeine]

http://forum.rudtp.ru/resources/add?resource_category_id=8

 

[_MBK_]

Зазипуйте

 

[Griffin_kk]

Зазипуйте

сроду бы не допетрил....
век живи - век учись
архив тоже не могу добавить

 

[Griffin_kk]

короче добавил на местный файлообменник

 

[Jeine]

Ну, из новых добавленных найти, конечно, совсем нетрудно, но обычно ссылку публикуют в сообщении.

 

[Griffin_kk]

Ну, из новых добавленных найти, конечно, совсем нетрудно, но обычно ссылку публикуют в сообщении.

я в интернете года с 98го... но тут всё так мудрено )
хрен поймешь че и как

Закладка

 

[Jeine]

но тут всё так мудрено )
хрен поймешь че и как

В этом есть как неудобства, так и плюсы. Плюсов больше, когда присмотришься.

 

[Jeine]

@Griffin_kk, В этих двух файлах разные pdf-продюсеры: 17.4.0.887 и 17.6.0.1021
Наверное, в новом подправили что-то разработчики, вот и результат другой (размер файла меньше).

 

[Jeine]

Скорее всего, на новом кореле (точнее, на новом буке) не хватает какого-то обновления для корела.