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

[bigor]

Похоже что у вас в папке не только xls файлы (скорее всего есть и файлы блокировки после неудачных попыток закрытия xls), поменяйте строчку в макросе на

Код Выделить Развернуть

If sFileName <> FileName1 And  left(sFileName,7) <> ".~lock."   Then

Хотя я вижу проблема уже разрешилась

[rami]

Похоже что у вас в папке не только xls файлы (скорее всего есть и файлы блокировки после неудачных попыток закрытия xls)

В данном случае проще явно прописать нужное нам расширение, чем перебирать всё содержимое папки с проверкой на соответствие. Так же важно явно задавать достаточную задержку после печати до закрытия документа, а то будет спотыкаться.

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

[OOKapitan]

поменяйте строчку в макросе на

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

[OOKapitan]

Скажите, пожалуйста, как поставить + в репутацию?

[OOKapitan]

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

У меня OpenOffice.org (не Apache OpenOffice). Может в этом проблема?

[rami]

Скажите, пожалуйста, как поставить + в репутацию?

Фломастером на экране компа

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

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

У меня OpenOffice.org (не Apache OpenOffice). Может в этом проблема?

Кроме вас вряд ли это кто-нибудь проверит.

[OOKapitan]

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

Очень жаль!
Всем ОГРОМНЕЙШЕЕ-ПРИОГРОМНЕЙШЕЕ СПАСИБИЩЕ!

[OOKapitan]

Похоже что у вас в папке не только xls файлы

А это самое смешное, так как Ваш файл с макросом я положил в ту же папку, что и печатаемые xls-файлы, потом запустил его и выбрал эту папку для печати. 

[kompilainenn]

Скажите, пожалуйста, как поставить + в репутацию?

читайте подписи под постами у тех, кто Вам помогал

[OOKapitan]

     Скажите, пожалуйста, как сделать кнопку, как в этом файле?

[bigor]

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

[OOKapitan]

перетащить элемент управления на страницу

Большое спасибо.
А как на ленту добавить? Я добавил через ПКМ, настройка панели инструментов, но кнопка отображается только в том файле, в котором я её добавил. А как сделать так, чтобы она отображалась во всех файлах?

[rami]

А как на ленту добавить? Я добавил через ПКМ, настройка панели инструментов, но кнопка отображается только в том файле, в котором я её добавил. А как сделать так, чтобы она отображалась во всех файлах?

Тогда нужно сохранять в компоненте (Calc, Writer или др.)

[OOKapitan]

Тогда нужно сохранять в компоненте (Calc, Writer или др.)

Так и сохраняю. Всё-равно кнопка на ленте видна только в том файле, в котором я её добавил. Я оказывается в OpenOfficeWriter её сохранил, а искал её в OpenOfficeCalc.
Всем огромнейшее спасибо.

[OOKapitan]

перетащить элемент управления на страницу

Твою ж... Опять я не понимаю. Я создал кнопку на странице по инструкции, которую Вы дали. А как теперь привязать к ней макрос?