[CDR 2017-2021] Указать готовый пресет настроек PDF

[mnemonix]

Искал но не нашел. Как в макросе VBA указать конкретный пресет настроек Publish To Pdf, а не брать тот, который выставлен по-умолчанию?

 

[mnemonix]

Ответ найден, тема закрыта.

If ActiveDocument.Dirty Then ActiveDocument.Save

With myDoc.PDFSettings

.myDoc.PDFSettings = Prepress

 

[mnemonix]

Нет, показалось. Опять актуально.

 

[dastin]

Опять актуально.

может как-то так ...
2 строка после Load - с вариантами
3 строка (и последующие) на ваше усмотрение

Sub TestPDF()
ActiveDocument.PDFSettings.Load "Prepress"
ActiveDocument.PublishToPDF "C:\temp\" & ActiveDocument.FileName & ".pdf"
End Sub

 

[mnemonix]

Не ругается, но и не цепляет пресет.

 

[mnemonix]

А ларчик просто открывался))) Вот я затупил.

.ColorResolution = 300
.ColorMode = pdfCMYK
.BitmapCompression = pdfJPEG
.JPEGQualityFactor = 10
.CompressText = True
.pdfVersion = pdfVersion14
.TextAsCurves = True
.CropMarks = True
.Bleed = True

 

[dastin]

А ларчик просто открывался)))

это не то пальто ...
это - вот что

можно просто числом - по порядку - от 0 до 10

 

[dastin]

Не ругается, но и не цепляет пресет.

должен ... style - это и есть пресет

 

[dastin]

по факту можно сделать следующее - сделать Record Macros с выбором нужного пресета (готового или тщательно настроенного самостоятельно) - во временный макрос запишутся все настройки, заданные пресетом.
Затем макрос с добавлениями и нужными изменениями в коде повесить на шорткат или кнопку.

 

[mnemonix]

Спасибо за pdfVersion12, остальное оставлю, как есть.

 

[mnemonix]

по факту можно сделать следующее - сделать Record Macros с выбором нужного пресета

Ну то уже костылики, проще прямо указать, так как используется в макросе один пресет, а в Publish To Pdf они постоянно меняются.

 

[Titrex]

Ответ найден, тема закрыта.

If ActiveDocument.Dirty Then ActiveDocument.Save

With myDoc.PDFSettings

.myDoc.PDFSettings = Prepress

Пару лет назад искал на community.coreldraw.com решение данной проблемы, в итоге нашёл ответ: Функция есть, но не работает...