[CDR X5-X8] Publish to PDF

dastin

Некромант-любитель
Топикстартер
12 лет на форуме
Сообщения
2 131
Реакции
2 027
CorelDRAW macros Publish to PDF
Экспорт в ПДФ текущей или всех страниц документа
с заданными параметрами по цвету, разрешению растра, местоположению и наличию вылетов (bleed)
Собран в CorelDRAW Х5, работает во всех последующих версиях, как х86, так и х64.
При активной галке "Home" экспорт будет осуществлён в каталог сохранённого документа,
иначе - в один из предварительно заданных каталога для экспорта.
При активной галке "Bleed" PDF будет экспортирован с блидами 3,175 mm (дефолтное значение)
Все выставленные параметры сохраняются при последующих вызовах макроса.

1645872862078.png
 

Вложения

  • ExPDF_4.zip
    19.8 КБ · Просм.: 229
Последнее редактирование:

George

I wish I was a monster you think I am
15 лет на форуме
Сообщения
17 302
Реакции
7 865

dastin

Некромант-любитель
Топикстартер
12 лет на форуме
Сообщения
2 131
Реакции
2 027
Чем оно лучше родных возможностей?
функционально - ничем
сделав в стандартном интерфейсе гораздо больше, нежели в макросе ,
кликов настройки,
выбора пресетов,
каталогов для сохранения,
набора текста
достигается ровно тот же результат
 
  • Спасибо
Реакции: kuterma2 и took

izrukvruki

15 лет на форуме
Сообщения
1 833
Реакции
302
CorelDRAW macros Publish to PDF
Экспорт в ПДФ текущей или всех страниц документа
с заданными параметрами по цвету, разрешению растра, местоположению и наличию вылетов (bleed)
Собран в CorelDRAW Х5, работает во всех последующих версиях, как х86, так и х64.
При активной галке "Home" экспорт будет осуществлён в каталог сохранённого документа,
иначе - в один из предварительно заданных каталога для экспорта.
При активной галке "Bleed" PDF будет экспортирован с блидами 3,175 mm (дефолтное значение)
Все выставленные параметры сохраняются при последующих вызовах макроса.

Посмотреть вложение 150408
У меня есть еще параметр про сжатие...
1645959477623.png
 

mnemonix

ॐ मणि पद्मे हूँ
Сообщения
576
Реакции
174
  • Спасибо
Реакции: Nikle

dastin

Некромант-любитель
Топикстартер
12 лет на форуме
Сообщения
2 131
Реакции
2 027
Update - version 6e
- JPG compression
+ ZIP compression
+ GrayScale mode
+ Resolution Mode "As Is"
+ Crop Marks checkbox
+ Curve Font checkbox
+ As Separated Page checkbox (DocName + #Page.pdf)
Собрано под Х5 - работать будет во всех X5 => версиях CorelDRAW
В архиве также bas, frx, frm

1693797452700.png
 

Вложения

  • ExPDF-6e.zip
    31.8 КБ · Просм.: 121
Последнее редактирование:

kuterma2

12 лет на форуме
Сообщения
33
Реакции
4
Update - version 6e
- JPG compression
+ ZIP compression
+ GrayScale mode
+ Resolution Mode "As Is"
+ Crop Marks checkbox
+ Curve Font checkbox
+ As Separated Page checkbox (DocName + #Page.pdf)
Собрано под Х5 - работать будет во всех X5 => версиях CorelDRAW
В архиве также bas, frx, frm

Посмотреть вложение 160495
А есть способ поменять Bleed чтобы по умолчанию тут было 2мм?
 

kuterma2

12 лет на форуме
Сообщения
33
Реакции
4
найти строку
.Bleed = 31750
исправить на
.Bleed = 20000
А подскажи поточнее (я не спец в макросах) - жму правой кнопкой -> edit в панели макросов - там не нахожу .Bleed строки... Не туда тыкаю...

(вижу чтото такое только:
Option Explicit

Public fLeft As Double, fTop As Double, wLeft As String, wTop As String, cboxFPathE As String
Public e As Long, p As Page, PathName As String, PName As String, PresetUp As String
Public PresetList As Variant, intCount As Integer, str As String, r As Integer, q As Integer, z As Integer

Sub Publish_PDF_2()
UF_PDF2.Show vbModeless
End Sub
 
Последнее редактирование:

dastin

Некромант-любитель
Топикстартер
12 лет на форуме
Сообщения
2 131
Реакции
2 027
в КОДЕ
а не в объекте
 
  • Спасибо
Реакции: kuterma2