- Сообщения
- 2 517
- Реакции
- 2 448
Да это понятно. Я думал - мож сюда экспорт jpg вкорячить...)
А так я пользуюсь Multipage export to bitmaps от wOxxOm
- Сообщения
- 2 517
- Реакции
- 2 448
Благодарствую!
ну и может не строго "в печать", а чтобы менять можно было название папки... а то это мне надо в печать - а кому-то "Готов", "Финал" или вообще "дата_время" и т.п.
- Сообщения
- 2 517
- Реакции
- 2 448
разумеется ... дата и время в названии файла уже можно добавлять ...
ну а "Готов" "Финал" ... хоть "В морг" - будет на усмотрение пользователя
- Сообщения
- 2 517
- Реакции
- 2 448
ну с этим всё готово
но чтобы два раза не разуваться - начал копать в сторону
по дороге выяснилось засада с профилями не единственная
похожая ситуация и конвертированием спотов - т.е. по умолчанию они не конвертируются.
И если в макете есть споты и нам захотелось изготовить Gray - то картинка выходит довольно весёлая
и отключить это на лету нельзя, как и в ситуации с профилями.
С RGB и CMYK картина аналогичная - по дефолту - профили включены, а конвертация спотов наоборот выключена.
Пока остановился на том, что из макроса читается состояние
c:\Users\***\AppData\Roaming\Corel\CorelDRAW Graphics Suite 2018\Config\corelpdf.ini
и выводятся флаги по спотам и профилям All_ON или All_OFF или mix
и сделан механизм переключения/сброса для всех пресетов
... но требуется перезагрузка CorelDRAW, чтобы эти изменения вступили в силу
Иначе из макроса никак.
Альтернатива - пользоваться штатными PDF Preset.
Идеально было бы как-то так
но одна мысль тревожит ... а может таки не стоит лезть в это corelPDF.ini???
Пусть остаётся со спотами и профилями - дело-то совсем не пустяшное.
По дури или непониманию можно столько дров наломать.
Ох, ёшкин кот... куды всё завертелось!!! Красиво!
я даже не знаю что сказать... Лично мне профиля наверное не нужны, но то такое: кому как. Поэтому копья ломать не стану.
я даже не знаю что сказать... Лично мне профиля наверное не нужны, но то такое: кому как. Поэтому копья ломать не стану.
- Сообщения
- 2 517
- Реакции
- 2 448
наверное ещё помучаю, но скорее всего ничего такого не будет ...
добавятся субдиректории с возможностью запоминать/добавлять/удалять и на этом остановимся
всё остальное - Добро пожаловать в пресеты.
Отлично, но, на мой взгляд, нужно чтобы монструозным не стало, важно вовремя остановиться
- Сообщения
- 2 517
- Реакции
- 2 448
... небольшой повтор уже сказанного
Spot to ... пока оставим в покое . Но вот насчёт перезапуска и ColorProfile кое-что придумал.
Структура corelpdf.ini следующая
в каждом стиле записаны установки для штатных пресетов + 17 Current
на последних версиях к ним добавляется ещё секция с ID_86 - PDF/X-4
1. Запускаем CorelDRAW и создаём и сохраняем PDF Preset с именем 2025
(можно и иначе - но тогда нужно будет внести правки в скрипт - о нём ниже) - он так и будет
отображаться в списке пресетов.
Задайте в нём параметры ON/OFF внедрения ColorProfile ... ну и всё остальное
Примените это пресет один раз на каком-нибудь файле
теперь верхняя секция corelpdf.ini [Config] будет выглядеть следующим образом
При этом можно использовать и все остальные пресеты, причём всякий раз при смене пресетов будет перезаписывать секция [Config]
Тем, кто использует исключительно пресеты для Publish to PDF, не о чем беспокоиться - всё будет работать как обычно .
Тем, кто использует макрос важно, чтобы секция [Config] содержала стиль 2025 и его настройки ON/OFF внедрения ColorProfile.
Поэтому ВМЕСТО старта CorelDRAW предлагаю запускать vbs скрипт, который
открывает corelpdf.ini
правит секцию [Config],
сохраняет corelpdf.ini
и потом сам запускает CorelDRAW.
Ещё раз обращаю внимание - В теле скрипта (а это обычный текстовый файл в кодировке UTF-8) задано
имя стиля "2025" - если вы зададите другое имя - скрипт надо будет поправить
в 22 строке strLineInput = "Style=2025" на ваше имя
а также путь к версии CorelDRAW - сейчас там 2018
FileIn = appDataLoc & "\Corel\CorelDRAW Graphics Suite 2018\Config\corelpdf.ini"
CorelApp = "c:\Program Files\Corel\CorelDRAW Graphics Suite 2018\Programs64\CorelDRW.exe"
******
НА ВСЯКИЙ СЛУЧАЙ - ПРЕДВАРИТЕЛЬНО ЗАБЭКАПИТЬ corelpdf.ini
если вам всё-таки удастся его попортить - прикладываю девственный (с PDF/X-4)
*****
то же самое касается и конвертации Spot to ...
Spot to ... пока оставим в покое . Но вот насчёт перезапуска и ColorProfile кое-что придумал.
Структура corelpdf.ini следующая
в каждом стиле записаны установки для штатных пресетов + 17 Current
на последних версиях к ним добавляется ещё секция с ID_86 - PDF/X-4
1. Запускаем CorelDRAW и создаём и сохраняем PDF Preset с именем 2025
(можно и иначе - но тогда нужно будет внести правки в скрипт - о нём ниже) - он так и будет
отображаться в списке пресетов.
Задайте в нём параметры ON/OFF внедрения ColorProfile ... ну и всё остальное
Примените это пресет один раз на каком-нибудь файле
теперь верхняя секция corelpdf.ini [Config] будет выглядеть следующим образом
т.е. теперь если запустить CorelDRAW - VBA будет использовать стиль 2025 по умолчанию до тех пор, пока не будет закрыт.
При этом можно использовать и все остальные пресеты, причём всякий раз при смене пресетов будет перезаписывать секция [Config]
Тем, кто использует исключительно пресеты для Publish to PDF, не о чем беспокоиться - всё будет работать как обычно .
Тем, кто использует макрос важно, чтобы секция [Config] содержала стиль 2025 и его настройки ON/OFF внедрения ColorProfile.
Поэтому ВМЕСТО старта CorelDRAW предлагаю запускать vbs скрипт, который
открывает corelpdf.ini
правит секцию [Config],
сохраняет corelpdf.ini
и потом сам запускает CorelDRAW.
Ещё раз обращаю внимание - В теле скрипта (а это обычный текстовый файл в кодировке UTF-8) задано
имя стиля "2025" - если вы зададите другое имя - скрипт надо будет поправить
в 22 строке strLineInput = "Style=2025" на ваше имя
а также путь к версии CorelDRAW - сейчас там 2018
FileIn = appDataLoc & "\Corel\CorelDRAW Graphics Suite 2018\Config\corelpdf.ini"
CorelApp = "c:\Program Files\Corel\CorelDRAW Graphics Suite 2018\Programs64\CorelDRW.exe"
******
НА ВСЯКИЙ СЛУЧАЙ - ПРЕДВАРИТЕЛЬНО ЗАБЭКАПИТЬ corelpdf.ini
если вам всё-таки удастся его попортить - прикладываю девственный (с PDF/X-4)
*****
Последнее редактирование:
- Сообщения
- 2 517
- Реакции
- 2 448
... что-то после ремонта прикреплённые файлы меняются ... или я чего не доглядел
Еще раз текстом/кодом - скопировать и сохранить в кодировке 1251
при необходимости поправить версию CorelDRAW в обоих файлах
Еще раз текстом/кодом - скопировать и сохранить в кодировке 1251
при необходимости поправить версию CorelDRAW в обоих файлах
Код:
сохранить строку как 2025.cmd и запускать откуда угодно от имени админа для правки INI и старта CorelDRAW
***
start "" "c:\Users\W10\AppData\Roaming\Corel\CorelDRAW Graphics Suite 2018\Config\2025.vbs"
***
а это сам скрипт 2025.vbs сохранить по этому пути
c:\Users\W10\AppData\Roaming\Corel\CorelDRAW Graphics Suite 2018\Config\2025.vbs
***
Set objShell = CreateObject( "WScript.Shell" )
appDataLoc=objShell.ExpandEnvironmentStrings("%APPDATA%")
FileIn = appDataLoc & "\Corel\CorelDRAW Graphics Suite 2018\Config\corelpdf.ini"
CorelApp = "c:\Program Files\Corel\CorelDRAW Graphics Suite 2018\Programs64\CorelDRW.exe"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set PDFstyle = objFSO.OpenTextFile(FileIn, 1, True)
Set tmpFile = objFSO.OpenTextFile(FileIn & ".tmp", 2, True)
Do While Not PDFstyle.AtEndofStream
strLineInput = PDFstyle.ReadLine
If InStr(strLineInput, "Style=") Then
S = Mid(strLineInput,1,6)
If S = "Style=" Then
strLineInput = "Style=2025"
End If
End If
tmpFile.WriteLine strLineInput
Loop
PDFstyle.Close
tmpFile.Close
objFSO.DeleteFile(FileIn)
objFSO.MoveFile FileIn&".tmp", FileIn
objShell.Exec(CorelApp)
Set objShell = Nothing
***
Последнее редактирование:
Навороченный, конечно, макрос. Куча настроек, все англоязычные...
Помнится, писал похожий макрос для себя. Не люблю много настроек, больше нравится когда макрос сам понимает, чего от него хотят. Ничего не выделено - экспортируем всю страницу, иначе - экспортируем выбранное. Выбранное состоит из нескольких непересекающихся объектов - экспортируем в разные файлы, иначе - одним файлом. Выбрал объекты, вызвал макрос - получил готовые файлы в заранее указанной папке с мессиджбоксом, что столько-то файлов экспортировано. Нужны дополнительные настройки - тогда вызываем этот же макрос, например, с нажатым шифтом или альтом и в появившемся окне уже выставляем что нужно. Хотя, конечно, у всех программистов свои предпочтения.
Помнится, писал похожий макрос для себя. Не люблю много настроек, больше нравится когда макрос сам понимает, чего от него хотят. Ничего не выделено - экспортируем всю страницу, иначе - экспортируем выбранное. Выбранное состоит из нескольких непересекающихся объектов - экспортируем в разные файлы, иначе - одним файлом. Выбрал объекты, вызвал макрос - получил готовые файлы в заранее указанной папке с мессиджбоксом, что столько-то файлов экспортировано. Нужны дополнительные настройки - тогда вызываем этот же макрос, например, с нажатым шифтом или альтом и в появившемся окне уже выставляем что нужно. Хотя, конечно, у всех программистов свои предпочтения.