макрос для печати всех файлов в той же папке, в которой находится файл с макросо

Автор OOKapitan, 24 апреля 2017, 13:33

0 Пользователи и 1 гость просматривают эту тему.

bigor

Похоже что у вас в папке не только xls файлы (скорее всего есть и файлы блокировки после неудачных попыток закрытия xls), поменяйте строчку в макросе на
If sFileName <> FileName1 And  left(sFileName,7) <> ".~lock."   Then

Хотя я вижу проблема уже разрешилась
Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут

rami

Цитата: Bigor от 24 августа 2017, 12:17Похоже что у вас в папке не только xls файлы (скорее всего есть и файлы блокировки после неудачных попыток закрытия xls)
В данном случае проще явно прописать нужное нам расширение, чем перебирать всё содержимое папки с проверкой на соответствие. Так же важно явно задавать достаточную задержку после печати до закрытия документа, а то будет спотыкаться.

Кстати, у меня на Маке печатает если открыт в скрытом режиме.

OOKapitan

Цитата: Bigor от 24 августа 2017, 12:17поменяйте строчку в макросе на
Огромнейшее спасибо.
Ваш макрос теперь не выдаёт ошибок и тоже работает на ура. Опять же исправил в макросе скрытие файлов, так как файлы, открытые в скрытом виде, у меня не печатаются.

OOKapitan


OOKapitan

Цитата: rami от 24 августа 2017, 12:52Кстати, у меня на Маке печатает если открыт в скрытом режиме.
У меня OpenOffice.org (не Apache OpenOffice). Может в этом проблема?

rami

Цитата: OOKapitan от 24 августа 2017, 15:30
Скажите, пожалуйста, как поставить + в репутацию?
Фломастером на экране компа ;D ;D ;D

На форуме такой возможности нет. Но можно так: :beer:



Цитата: OOKapitan от 24 августа 2017, 15:35
Цитата: rami от 24 августа 2017, 12:52Кстати, у меня на Маке печатает если открыт в скрытом режиме.
У меня OpenOffice.org (не Apache OpenOffice). Может в этом проблема?
Кроме вас вряд ли это кто-нибудь проверит.

OOKapitan

Цитата: rami от 24 августа 2017, 13:40На форуме такой возможности нет.
Очень жаль!
Всем ОГРОМНЕЙШЕЕ-ПРИОГРОМНЕЙШЕЕ СПАСИБИЩЕ!
:beer: :beer: :beer: :beer: :beer:

OOKapitan

Цитата: Bigor от 24 августа 2017, 12:17Похоже что у вас в папке не только xls файлы
А это самое смешное, так как Ваш файл с макросом я положил в ту же папку, что и печатаемые xls-файлы, потом запустил его и выбрал эту папку для печати.  ;D ;D ;D

kompilainenn

Цитата: OOKapitan от 24 августа 2017, 15:30
Скажите, пожалуйста, как поставить + в репутацию?
читайте подписи под постами у тех, кто Вам помогал
Поддержать разработчиков LibreOffice можно тут, а наш форум вот тут

OOKapitan


bigor

Вид-Панели-Элементы управления
переключить в режим разработки
перетащить элемент управления на страницу
настроить его
выключить режим разработки
Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут

OOKapitan

Цитата: Bigor от 25 августа 2017, 08:56перетащить элемент управления на страницу
Большое спасибо.
А как на ленту добавить? Я добавил через ПКМ, настройка панели инструментов, но кнопка отображается только в том файле, в котором я её добавил. А как сделать так, чтобы она отображалась во всех файлах?

rami

Цитата: OOKapitan от 25 августа 2017, 09:02А как на ленту добавить? Я добавил через ПКМ, настройка панели инструментов, но кнопка отображается только в том файле, в котором я её добавил. А как сделать так, чтобы она отображалась во всех файлах?
Тогда нужно сохранять в компоненте (Calc, Writer или др.)

OOKapitan

Цитата: rami от 25 августа 2017, 09:21Тогда нужно сохранять в компоненте (Calc, Writer или др.)
Так и сохраняю. Всё-равно кнопка на ленте видна только в том файле, в котором я её добавил. Я оказывается в OpenOfficeWriter её сохранил, а искал её в OpenOfficeCalc.
Всем огромнейшее спасибо.

OOKapitan

Цитата: Bigor от 25 августа 2017, 08:56перетащить элемент управления на страницу
Твою ж... Опять я не понимаю. Я создал кнопку на странице по инструкции, которую Вы дали. А как теперь привязать к ней макрос?