Печать первой страницы всех документов из папки

Russian main discussion
Post Reply
  • Author
  • Message
Offline
Posts: 2
Joined: Tue Feb 18, 2014 9:18 am

Печать первой страницы всех документов из папки

Post by erd_all »

Собственно, весь вопрос в задании.
Итак, в папке есть текстовые файлы. Сейчас я открываю их в AkelPad и при печати выбираю первую страницу. Есть ли сохраняемая настройка, чтоб в диалоге печати в разделе "Диапазон страниц" точка стояла в пункте "Страницы" а не в пункте "Все"

Offline
Posts: 874
Joined: Sat Jan 16, 2010 2:03 pm

Re: Печать первой страницы всех документов из папки

Post by opk44 »

erd_all wrote:Собственно, весь вопрос в задании.
Итак, в папке есть текстовые файлы. Сейчас я открываю их в AkelPad и при печати выбираю первую страницу. Есть ли сохраняемая настройка, чтоб в диалоге печати в разделе "Диапазон страниц" точка стояла в пункте "Страницы" а не в пункте "Все"
1. Формулируйте впредь корректно. Не "задание", а "заголовок". Задания даются ученикам или подчиненным. Здесь ни тех ни других нет.

2. Нет такой сохраняемой настройки.

3. Для решения вопроса приходят на помощь плагины. В данном случае можно воспользоваться либо макросом либо скриптом. И тому и другому назначается кнопка либо хоткей.
Макрос прост, быстр в создании и не требует никаких дополнительных знаний кроме того "какие кнопки нужно нажать для решения такой-то задачи".
Пример макроса: {Ctrl+P}{TAB}{TAB}{TAB}{TAB}{UP}
Обратите внимание, что безопаснее использовать {UP} нежели {DOWN}, т.к. количество переходов "вниз" может отличаться (в зависимости от того, есть ли в редакторе выделенный текст или нет).
Скрипт - более гибкое решение чем макрос, но требует хотя бы минимального знания JScript либо VBScript.

Code: Select all

----------------------------------------
VBScript template
----------------------------------------
Dim WshShell
  Set WshShell = CreateObject("WScript.Shell")
  WshShell.SendKeys "^p"
  WshShell.SendKeys "{TAB}"
  WshShell.SendKeys "{TAB}"
  WshShell.SendKeys "{TAB}"
  WshShell.SendKeys "{TAB}"
  WshShell.SendKeys "{UP}"
----------------------------------------
JScript template
----------------------------------------
  var WshShell = new ActiveXObject("WScript.Shell");
  WshShell.SendKeys ("^p");
  WshShell.SendKeys ("{TAB}");
  WshShell.SendKeys ("{TAB}");
  WshShell.SendKeys ("{TAB}");
  WshShell.SendKeys ("{TAB}");
  WshShell.SendKeys ("{UP}");
----------------------------------------

Offline
Posts: 2
Joined: Tue Feb 18, 2014 9:18 am

Post by erd_all »

по первому пункту - извиняюсь. Имелось ввиду, что это для меня задание - я его должен реализовать.
по второму - тоже разобрался, спасибо большое!!!

Offline
Site Admin
Posts: 6311
Joined: Thu Jul 06, 2006 7:20 am

Post by Instructor »

erd_all
См. PrintAll.js

Code: Select all

-"Print all (only first page)" Call("Scripts::Main", 1, "PrintAll.js", `-FromPage=1 -ToPage=1`)
Вызов распечатает первые страницы всех открытых документов.
Post Reply