У першій частині серії дліннопостов про ледачих конспектах ми друкували текст розрізаючи лист і поєднуючи його зі своєю половинкою скотчем. Рано чи пізно від прозорої ізоляційної стрічки потрібно було позбутися.
Що нам знадобиться:
Компухтер, принтер, зошит у клітинку, канцелярський ніж. липка стрічка aka скотч. трохи вільного часу, лінійка
Документальних свідчень, створеним раніше [см. конспект для ледачих]
Змінимо орієнтацію аркуша на альбомну
Налаштуємо розмір листа
Зазначимо розміри: ширина 33 см, висота 20.5 см
На повідомлення про полях, що лежать поза області друку, тиснемо "Пропустити"
Налаштуємо призначені для користувача поля
Верхнє і нижнє - 5 мм, ліве - 25 мм, праве - 17.3 мм
Роздрукуємо лист і отримаємо від принтера плювок в душу
Лінійкою виміряємо відстань, на яке нас кинув принтер - 45 мм
Вкоротити наш лист на 45 мм
Зрушимо весь вміст вправо, змінивши поля: ліве - 12 см, праве - 2.5 см
Роздрукуємо і лінійкою знайдемо відстань на яке потрібно змістити текст
Зліва додамо 23 мм, праворуч приберемо 10 мм
Так як друкувати ми будемо використовуючи тільки праву сторону листа, необхідно розібратися з перевертанням тексту. Виберемо інструмент "Напис"
І растянем на потрібне поле, прив'язка по сітці допоможе
Ага чекаємо, я геть припустимо в vbs НЕ шарю довелося через запис макросу створювати скрипт, але всерівно косяки з'являються тому потрібно стежити.
І ще цікаво чи є для Ворда макроси для друкарства, тому що на одній стороні потрібно відразу поміщати сторінки 1 і 10 на інший вже 2 і 9, поки все ручками доводиться робити.
Сообствено ось макроси якими користуюся, може кому стати в нагоді (урізання скрипт з Хабра):
Set objDoc = ActiveDocument
Set objRandom = CreateObject ( "System.Random")
Set objRange = objDoc.Range ()
Set colCharacters = objRange.Characters
For Each strCharacter In colCharacters
Select Case objRandom.Next_2 (1, 4) 'ра
Розкрити гілка 2
Все одно не природно (ну хоча да, про що я пишу). Букви дуже рівно в клітці, ні верх, ні вниз не заходять. Чи не природно виглядає.