[CDR X5-X8] много визиток на одном холсте как экспортировать?

[Bamboo]

Есть много разных визиток на холсте, нужно их экспортнуть в PDF чтобы каждая визитка была на отдельной странице. В иллюстраторе можно создавать много рабочих областей, если такая возможность в кореле?

 

[_MBK_]

В иллюстраторе можно создавать много рабочих областей, если такая возможность в кореле?

Ну, можно сделать макрос который под каждый объект страницу создавал

 

[splxgf]

Ну а разве в кореле страницы закончились.
Добавить страницы, вынести все на поле и раскидать все полистывая.

 

[Bamboo]

Ну а разве в кореле страницы закончились.
Добавить страницы, вынести все на поле и раскидать все полистывая.

Вот и спрашиваю потому что не дружу с корелом

 

[_MBK_]

Вот и спрашиваю потому что не дружу с корелом

А в чем сложно то руками?
Если все объекты на полях и их не тысячи, то дело двух минут: Выделил объект-PgDn-Enter-P-и так далее до полного удовлетворения

 

[Nicky]

У меня три макроса

Sub Vizitk()
    ' Recorded 21.05.2015
    With ActiveDocument.MasterPage
        .SetSize 3.622047, 2.047244
        .Orientation = 1
        .PrintExportBackground = True
        .DesktopLayer.Editable = True
        .DesktopLayer.Visible = True
        .GridLayer.Visible = False
        .Bleed = 0#
        .Background = 0
    End With
End Sub

Sub VizToCenter()
    ' Recorded 18.12.2015
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    OrigSelection.AlignAndDistribute 3, 3, 2, 0, False, 2
    Dim p1 As Page
    Set p1 = ActiveDocument.InsertPages(1, False, ActivePage.Index)
    Windows.FindWindow(ActiveDocument).ActiveView.ToFitAllObjects
End Sub

Sub VizPOZITIV()
    ' Recorded 21.01.2016
    With ActiveDocument.MasterPage
        .SetSize 3.622047, 2.047244
        .Orientation = 1
        .PrintExportBackground = True
        .DesktopLayer.Editable = True
        .DesktopLayer.Visible = True
        .GridLayer.Visible = False
        .Bleed = 0#
        .Background = 0
    End With
    ActiveDocument.CreateShapeRangeFromArray(ActiveLayer.Shapes(1)).AlignAndDistribute 3, 3, 2, 0, False, 2
    Dim p1 As Page
    Set p1 = ActiveDocument.InsertPages(1, False, ActivePage.Index)
    ActiveDocument.MasterPage.DesktopLayer.Shapes(1).AddToSelection
    ActiveDocument.MasterPage.DesktopLayer.Shapes(1).AlignAndDistribute 3, 3, 2, 0, False, 2
End Sub

Первый макрос тупо делает формат 92*52.

Второй позволяет сгруппированные материалы с рабочего поля кидать на следующие страницы.

Третий... Если вам прислали макет визитки (одной) на формате А4 - получите результат в две стр 92*52)))

 

[Nicky]

@Bamboo, Вам нужен мой второй)))

 

[Nicky]

@_MBK_, есть что улучшить? Вот только без стеба? )))
Макрос делался в режиме записи, потом туда не лез)))

 

[_MBK_]

есть что улучшить?

Я не могу без стеба, ибо не понимаю смысла сего макроса? Макрос делается для автоматизации какого то действия, а какая автоматизация в закидывании в макрос действия, вызываемого одним шоткатом?

 

[Nicky]

Ты хоть попробовал?
Или тебе киношку снять?

 

[_MBK_]

Что попробовал? Группу объектов по центру страницы выровнять?

 

[Nicky]

Какой шоткат?
С Рабочего поля раскидает визиток 200?

 

[Nicky]

В понедельник скину макет...
Ты - свой волшебный шоткат.
Оки?

 

[_MBK_]

Какой шоткат?
С Рабочего поля раскидает визиток 200?

Какие двести визиток??? Макрос VizToCenter на первый взгляд, просто центрирует выбранный селекшн по центру страницы? Или я чего не догоняю?

 

[Skvoznyak]

92x52 странный размер для визиток, стандартно 90x50

 

[_MBK_]

92x52 странный размер для визиток

По миллиметру с каждой стороны под подрезку обычно дают

 

[Skvoznyak]

первый раз слышу, зачем? если фон навылет, то его в блиды, а не формат увеличивать.

 

[_MBK_]

Визитки могут быть какие угодно разномастные, с совершенно не стыкующимися фонами.
Я сколько разных типографий видел, везде при составлении солянки за правило давать по миллиметру с каждой стороны
Я предполагал, что это общепринятое правило, а как еще?

 

[Skvoznyak]

обрезной формат 90x50, и добавляешь bleeds сколько надо. не очень удобно потом в спуск засовывать разнокалиберные и на каждом файле обрезной менять. равно как и дать расстояние между рядами/колонками - просто, а вот убирать ненужные миллиметры - история

 

[Jeine]

Сквозняк говорит, что 92х52 без вылетов не то же самое, что 90х50 с вылетами по 1 мм. И он прав, но иногда это безразлично.