Цитата
Как вы книжки печатаете, я читал, что вы дуплексом не пользуетесь, печатаете сначала нечетные, а потом четные? Я фотографиях я видел что у вас на одном листе А4 по две половины А5, только не понял, что с ними делать дальше, резать?
Что это за программа PageMaker plugin Build Booklet и откуда ее можно взять. И как вы потом листы сшиваете, склеиваете клеем?
Что это за программа PageMaker plugin Build Booklet и откуда ее можно взять. И как вы потом листы сшиваете, склеиваете клеем?
Сначала я пишу макрос, который кидает все, скажем, 912 с. в PageMaker по А5 листику на А5 странице. Потом запускаю встроенный plugin PageMaker Build Booklet. Там есть выбор "2-up perfect bound". Этот plugin ставит 1 страницу на развороте с 8, 2 с 7, 3 с 6, ... 9 с 16 и.т.д. Можно и поставить "2-up seddle stich" - тогда он просто собирает первую с последней вторую с предпоследней и.т.д. Потом я печатаю скажем 25 экз. с 1 по 8 стр. четные и на оброте нечетные. Получаю листы, где на одной стороне 1 и 8 а на обороте 7 и 2 и.т.д. Такую работу лучше доверить типографии. Там каждые четыре листа подбирают, фальцуют и сшивают в тетрадку. Потом тетрадки садят на клей. Можно и не шить, просто порезать пополам и прямо садить на клей. Тогда получаеться клееная книжка.
Цитата
Я пока что думаю сверлить сверлом дыры и потом нитками сшивать, торец потом бумагой заклеить. Печатать я собираюсь для себя, заказал в редакции диски с качественными редакционными pdf-ками журнала РадиоХобби за 5 лет и хочу это все распечатать. Разрешение там 1200dpi
Я бы на твоем месте экспортировал страницы, как картринки с разрешением 400 dpi в папку и нес бы в PageMaker, или освоил бы опцию печати буклета в драйвере принтера. Или взял бы програмку Scenic Soft Preps, которая из PostScript делает любую раскладку.
Макрос Word 95 выглядит так:
Dim Shared Mas(32)
Sub MAIN
DDETerminateAll
If AppIsRunning("Adobe Pagemaker 6.5") = 0 Then Shell "D:\Programs\PageMaker 6.5\PM65.exe"
While AppIsRunning("Adobe Pagemaker 6.5") = 0 : A = a + 1 : Wend
Chan = DDEInitiate("PageMaker", "")
Path$ = GetPrivateProfileString$("HKEY_CLASSES_ROOT", "Path", "")
Path$ = InputBox$("Path", "PlaceTiffs", Path$)
SetPrivateProfileString "HKEY_CLASSES_ROOT", "Path", Path$, ""
ChDir Path$
FileFind .SearchPath = Path$, .Name = "*.tif"
DDEExecute Chan, "SuppressAutosave 1"
REM DDEExecute Chan, "PageOptions On, Off"
DDEExecute Chan, "PageNumbers 1," + Str$(CountFoundFiles()) + ", true, arabic, " + Chr$(34) + Chr$(34)
PMQuery("GetPageSize", Chan)
CentrsHorVer$ = Str$(Mas(1) / 2) + ", " + Str$(Mas(2) / 2)
Zero = InStr(FileNameInfo$(FoundFileName$(1), 2), "0")
If Zero = 0 Then Zero = 1
For x = 1 To CountFoundFiles()
REM PagNumber$ = Str$(Val(Mid$(FileNameInfo$(FoundFileName$(x), 2), Zero)))
REM MsgBox FileNameInfo$(FoundFileName$(x), 2)
PagNumber$ = Mid$(FileNameInfo$(FoundFileName$(x), 2), 9)
Print PagNumber$
DDEExecute Chan, "Page " + PagNumber$
DDEExecute Chan, \
"Import " + Chr$(34) + FoundFileName$(x) + Chr$(34)
DDEExecute Chan, "Place 0 0"
DDEExecute Chan, "Move Center" + CentrsHorVer$
REM DDEExecute Chan, "ResizePCT Center 130 130"
Next
End Sub
Sub PMQuery(Name$, Chan)
Open "C:\Macro.tmp" For Output As #1
Print #1, DDERequest$(Chan, Name$)
Close
Open "C:\Macro.tmp" For Input As #1
Input #1, Mas(1), Mas(2), Mas(3), Mas(4), Mas(5), Mas(6), Mas(7), Mas(8), Mas(9), Mas(10), Mas(11), Mas(12), Mas(13), Mas(14), Mas(15), Mas(16), Mas(17), Mas(18), Mas(19), Mas(20), Mas(21), Mas(22), Mas(23), Mas(24), Mas(25), Mas(26), Mas(27), Mas(28), Mas(29), Mas(30), Mas(31), Mas(32)
Close
End Sub
Оффлайн
Инфо (143)
