Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

18 Октябрь 2017, 12:12 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1 2 3 4 5 6 7 8 »   Вниз
  Печать  
Автор Тема: макрос для печати всех файлов в той же папке, в которой находится файл с макросо  (Прочитано 3419 раз)
0 Пользователей и 1 Гость смотрят эту тему.
OOKapitan
Пользователь
**
Offline Offline

Сообщений: 56


« Стартовое сообщение: 24 Апрель 2017, 13:33 »

       Здравствуйте.
       Я сейчас работаю в OpenOffice Calc, и мне часто приходится печатать более 40 файлов сразу. Выделить все, ПКМ, печать у меня не работает. Скажите, пожалуйста, может есть макрос, позволяющий печатать все файлы в той же папке, в которой находится файл, откуда этот макрос запускается? Раньше я работал в Эксель, но на работе установлен только OpenOffice,поэтому сейчас работаю в нём. Если эксель-макросы я более-менее знаю, то в макросах OO я ничего не понимаю. Помогите, пожалуйста.
Записан
mikekaganski
Ветеран
*****
Offline Offline

Пол: Мужской
Расположение: Хабаровск -> Москва
Сообщений: 611


« Ответ #1: 24 Апрель 2017, 13:44 »

Попробуйте сделать без макроса, скриптом.
Если у Вас Windows, Вы можете сделать bat-файл со строкой

Код:
for %%f in ("%1\*.*") do C:\Prorgam Files\OpenOffice\program\soffice.exe -p "%%f"

Этот скрипт распечатает все файлы папки, переданной первым аргументом, на принтер по умолчанию. Для его запуска Вы можете из проводника просто "перетащить" папку целиком на ярлык скрипта.

Если Вам нужен определённый принтер, Вы можете вместо этого написать

Код:
for %%f in ("%1\*.*") do C:\Prorgam Files\OpenOffice\program\soffice.exe --pt "ИмяПринтера" "%%f"
Записан

С уважением,
Михаил Каганский
OOKapitan
Пользователь
**
Offline Offline

Сообщений: 56


« Ответ #2: 24 Апрель 2017, 15:44 »

Большое спасибо
А второй код делает то же, что и первый, только можно указать имя Принтера?
Под Windows 8 эти батники будут работать?

И для повышения уровня знаний OpenOffice можно всё- таки увидеть пример макроса по печатать файлов в папке.
« Последнее редактирование: 24 Апрель 2017, 15:46 от OOKapitan » Записан
Rafik
Новичок
*
Offline Offline

Сообщений: 49


« Ответ #3: 25 Апрель 2017, 20:27 »

... можно всё- таки увидеть пример макроса по печатать файлов в папке.
Во вложенном файле один из возможных вариантов + домашнее задание.

* Печать файлов ЛибреОфис ГОТОВО.odt (21 Кб - загружено 22 раз.)
Записан
OOKapitan
Пользователь
**
Offline Offline

Сообщений: 56


« Ответ #4: 17 Июль 2017, 12:27 »

     Здравствуйте.
     К сожалению в силу определённых обстоятельств я долго не мог ни проверить ничего, ни ответить.
     Итак: макрос из файла в посте перед этим не работает. Что я делаю: настроил принтер, нажимаю на кнопку (единственную в файле), выбираю файл - он пишет, что файлы напечатаны, но по факту ничего не печатается. Помогите, пожалуйста.
Записан
OOKapitan
Пользователь
**
Offline Offline

Сообщений: 56


« Ответ #5: 31 Июль 2017, 15:29 »

Помогите, пожалуйста
Записан
Bigor
Новичок
*
Offline Offline

Сообщений: 36


« Ответ #6: 1 Август 2017, 14:27 »

У меня макрос работает. Раскомментируйте строчку  print   getPrinterName и проверьте на какой принтер идет печать
Записан
OOKapitan
Пользователь
**
Offline Offline

Сообщений: 56


« Ответ #7: 14 Август 2017, 14:07 »

У меня макрос работает. Раскомментируйте строчку  print   getPrinterName и проверьте на какой принтер идет печать
У меня начинает жужжать нужный мне принтер, как если бы он начинал печатать, но печати не происходит. Помогите, пожалуйста.indows
Да, у меня Windows 8, принтер подключён к ПК по сети (но нужен интернет для работы принтера- он есть).
« Последнее редактирование: 14 Август 2017, 14:09 от OOKapitan » Записан
OOKapitan
Пользователь
**
Offline Offline

Сообщений: 56


« Ответ #8: 14 Август 2017, 14:46 »

  Посмотрел - там несколько взаимосвязанных макросов в файле.
Макрос - PrintMyDoc (если запустить именно его) не работает - вылетает в дебаггер на строку    
Код:
oPrinter = oDoc.getPrinter()
и пишет "Аргумент обязателен". Потому и не работает.
А вообще странные макросы. Они точно для OpenOfficeCalc, а не для Excel?
« Последнее редактирование: 14 Август 2017, 14:50 от OOKapitan » Записан
mikekaganski
Ветеран
*****
Offline Offline

Пол: Мужской
Расположение: Хабаровск -> Москва
Сообщений: 611


« Ответ #9: 14 Август 2017, 14:59 »

Макрос - PrintMyDoc (если запустить именно его) не работает - вылетает в дебаггер на строку    
Код:
oPrinter = oDoc.getPrinter()
и пишет "Аргумент обязателен". Потому и не работает.

Посмотрите внимательно. Эта процедура вызывается в Sub PrtMyFiles со всеми необходимыми параметрами. Так что вовсе не "Потому и не работает". А то, что напрямую вызвать процедуру, нуждающуюся в обязательных аргументах, нельзя - так это нормально.
Записан

С уважением,
Михаил Каганский
OOKapitan
Пользователь
**
Offline Offline

Сообщений: 56


« Ответ #10: 14 Август 2017, 15:32 »

Так что вовсе не "Потому и не работает"
А почему же тогда? Очень срочно нужно. Помогите, пожалуйста.
Записан
mikekaganski
Ветеран
*****
Offline Offline

Пол: Мужской
Расположение: Хабаровск -> Москва
Сообщений: 611


« Ответ #11: 14 Август 2017, 15:36 »

У Вас что-то не работает, причём "начинает жужжать нужный мне принтер". Кроме того, "нужен интернет для работы принтера" - интересный факт. Нестандартная конфигурация, возможно, что-то не учтено в макросе - но это невозможно определить, не имея среды для тестирования.

Да и вообще, Вы даже не удосужились ответить, помог ли первый совет, и если нет, то чем.
Записан

С уважением,
Михаил Каганский
OOKapitan
Пользователь
**
Offline Offline

Сообщений: 56


« Ответ #12: 14 Август 2017, 15:42 »

Да и вообще, Вы даже не удосужились ответить, помог ли первый совет, и если нет, то чем.
Первый совет - вообще ничего не делает. Какая-то обработка идёт, но ничего не печатается. У нас в фирме принтер подключён по сети ко всем ПК Офиса. Если интернета нет - принтер недоступен для печати. Также, если важно, файлы имеют расширение xls (экселевское), несмотря на работу в OpenOffice (так нужно потому, что у руководства эксель). Но макрос нужен именно для OpenOfficeCalc
Записан
mikekaganski
Ветеран
*****
Offline Offline

Пол: Мужской
Расположение: Хабаровск -> Москва
Сообщений: 611


« Ответ #13: 14 Август 2017, 15:45 »

А Вы пробовали (на всякий случай) LibreOffice? Возможно, разницы не будет, но всё же. Его можно установить portable, если необходимо потестировать.
Записан

С уважением,
Михаил Каганский
OOKapitan
Пользователь
**
Offline Offline

Сообщений: 56


« Ответ #14: 14 Август 2017, 15:46 »

Его можно установить portable, если необходимо потестировать
Чтобы что-то установить нужен админский пароль - я не хочу спрашивать.
Записан
Страниц: 1 2 3 4 5 6 7 8 »   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!