Corel задачка

[losyasha]

Попытаюсь описать понятно. Клиенту нужно напечатать кучу табличек на самоклейке, порядка 1000 табличек будет. Таблички на дома. В одном файле на одном листе сделана раскладка этих табличек порядка 200шт. Если запускать на печать этой раскладкой, не оптимально будет расходоваться материал.

Чтобы понятнее было, вот скрин такой раскладки



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

Понятно, что дизайнеру руки оторвать и собакам скормить, но этот дизайнер мой родственник, не получится.

[MaxMaster]

мы зачастую ручками раскладываем - быстрее получается

[losyasha]

MaxMaster, тут не вариант, таких табличек, как на раскладке выше, порядка 1000 шт

[MaxMaster]

и что? минут 40 посидеть и все разложишь

[Usama]

Разложить руками.
Заказ офигенский. У меня такая готовая табличка 450 рублей стоит.

[losyasha]

Usama, с меня только печать и порезка, накатывают они сами

[Ir0nMike]

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

[Usama]

losyasha, всё равно получается достаточно для того, чтобы поработать ручками ;-)

[dastin]

если каждая табличка представляет собой группу - то можно макросом object 2 page - предварительно выставив размер страницы в размер таблички - из этого безобразия получить документ с количеством страниц, соответствующим количеству табличек ...

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

выделить всё - разместить по центру страницы - - выполнить макрос - получим N-страниц и первую пустую ... и так с каждым "шедевром" файлопостроения

но вот если группировки элементов в табличках нет - только руки - т.к. каждый объект таблички (текст, рамки, плашки) будет помещен на отдельную страницу

Objet2pages.zip

распаковать сюда
c:\Program Files\Corel\CorelDRAW Graphics Suite *\Draw\GMS\Objet2pages.gms


Удачи

[losyasha]

dastin, для какой версии корела он?

[dastin]

В Х7 х32 работает ... в х64 тоже должен - ничего там особливого вроде нет

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

Sub Object2pages()
Dim sr As ShapeRange, s As Shape, p As Page, l As Layer
Set sr = ActiveSelectionRange
For Each s In sr
Set p = ActiveDocument.AddPages(1)
Set l = p.ActiveLayer
s.MoveToLayer l
s.AlignToPageCenter cdrAlignHCenter + cdrAlignVCenter
Next s
End Sub