Corel FORUM

wawel

a gdzie w tym macro sa nadlewki?
jest bleed = (tlum. wyjscie poza margines = spad drukarski)
jest offset (dot. lini ciecia) czyli odsuniecie lini od wizytowki
jest gutter (czyli odsuniecie wizytowek od siebie)
pozdr.

BESKA

Więc tak:
moja wizytówka ma teraz np. 94x54mm z zalewkami po 2mm z każdej strony,
docelowy format po ścięciu ma być 90x50mm
robiąc impozycję w sposób jaki mi pomogliście nie mogę ustawić aby pasery były widoczne na rozmiar 90x50mm tylko robią się tak jak w pliku czyli na 94x54mm
no i pytanie brzmi czy jest jakaś rada aby zalewka była ale pasery wcinały się do docelowego formatu...?

1cm

BESKA zapominamy o nadlewkach, podlewkach, zlewkach itp. Zakładam, że cały czas chodzi Ci o spady czyli o ten obszar wokół wizytówki który zostanie bardziej lub mniej precyzyjnie ścięty w ostatnim etapie produkcji. Jako, że to makro nie oferuje opcji ustawienia spadu dla poszczególnych elementów impozycji mam następującą propozycję.
Robisz impozycję na gołych (bez spadu) wizytówkach. Ustawiasz odtęp 'gutter' o rozmiarze 2x planowany spad i uruchamiasz makro. Po rozmieszczeniu na arkuszu i wygenerowaniu paserów ustawiasz spady, np. poprzez połączenie obszarów wizytówek i nadanie im konturu o rozmiarze spadu jaki potrzebujesz.

pzdr.

wawel

Najlepsze jest to ze nawet drukarnie mowia o tych nadlewkach myslac o spadach, naddatkach, nawet te cyfrowe (ciekawe co chca tam nadlewac ;-)

)

Co do tego konkretnego problemu jesli juz decydujemy sie na uzycie tego macra ( wygodniej chyba jednak uzyc tego modulu z opcji druku ) to mozna zrobic tak:
1. zrobic wizytowke ze spadami 94 na 54
2. zgrupowac
3. pomniejszyc do 90 na 50
4 uzyc macra i ustawic gutter 4, lenght 4, offset 4, i odptaszyc bleed (bo nie zawsze sie sprawdzi, zalezy od proj.)

5. utworzyc nowa warstwe na nia przeniesc linie ciecia, sa zgrupowane po uzyciu macra wiec to latwe.
6 uaktywnic warstwe poprzednia czyli z wizytowkami bez lini ciecia i uzyc tego macro

Sub wizyt()
Dim s As Shape
ActiveDocument.ReferencePoint = cdrCenter
For Each s In ActiveDocument.ActiveLayer.Shapes
s.SetSize 3.700787, 2.125984
Next s

i dostaniemy to na czym nam zalezy.

pozdr.

wawel

zgubilem zamkniecie przy kopiowaniu z notatnika
ma byc na koncu end
czyli

Sub wizyt()
Dim s As Shape
ActiveDocument.ReferencePoint = cdrCenter
For Each s In ActiveDocument.ActiveLayer.Shapes
s.SetSize 3.700787, 2.125984
Next s
End Sub