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

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

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

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Перестал работать макрос печати документов  (Прочитано 875 раз)
0 Пользователей и 1 Гость смотрят эту тему.
OOKapitan
Форумчанин
***
Offline Offline

Сообщений: 353


« Стартовое сообщение: 17 Август 2018, 18:01 »

      Здравствуйте.
      Неожиданно перестал работать рабочий макрос печати (из module2 приложенного файла). Выдаёт ошибку как на скрине. Макрос я не трогал вообще, и до сегодняшнего дня он прекрасно работал. Файлы в папке, в которой лежит этот файл, тоже не менялись. Менялось только их количество в сторону увеличения. Последний раз недавно их число увеличилось на 1. Помогите, пожалуйста.


* ОШ.jpg (222.99 Кб, 1366x768 - просмотрено 22 раз.)
Записан
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 2 587


MacBook Pro, LibreOffice и Apache OpenOffice


« Ответ #1: 17 Август 2018, 21:32 »

Неожиданно перестал работать рабочий макрос печати (из module2 приложенного файла).
В приложенном файле ОШ.jpg никакого module2 нет, наверно отвалился Смеющийся . "Дяденька, а у вас ус отклеился..."  Смеющийся Смеющийся Смеющийся
Записан

OOKapitan
Форумчанин
***
Offline Offline

Сообщений: 353


« Ответ #2: 20 Август 2018, 09:01 »

Странно, файл почему-то не приложится.
Код такой:
Код:
Sub Main
Dim oProps(0) as New com.sun.star.beans.PropertyValue
oProps(0).Name="Hidden"
oProps(0).Value=True        'в скрытом режиме
doc=ThisComponent
fold=convertToURL(replace(convertFromURL(doc.URL),doc.Title,""))
fName=Dir(fold & "*.odt",0) 'ищем только с указанным расширением
s=fName
Do
fName=Dir()
If fName="" Then Exit Do
s=s+chr(10)+fName
Loop
If msgbox(s, 36, "Распечатать документы?")=7 Then Exit Sub
files=split(s,chr(10))
For Each f In files
oDoc=StarDesktop.LoadComponentFromUrl(fold & f, "_blank", 0, oProps())
oDoc.Print(Array())
wait 1000      'явная задержка времени одна секунда
oDoc.close(True)
Next
Print "Готово!"
End Sub
Файл выложу, как приеду на работу.
Записан
OOKapitan
Форумчанин
***
Offline Offline

Сообщений: 353


« Ответ #3: 20 Август 2018, 10:15 »

Вот сам файл:

* print_catalog_2.odt (21.47 Кб - загружено 2 раз.)
Записан
Bigor
Опытный пользователь
***
Offline Offline

Пол: Мужской
Сообщений: 331


« Ответ #4: 20 Август 2018, 10:34 »

А без макроса спектр247.docx печатается?
Записан
OOKapitan
Форумчанин
***
Offline Offline

Сообщений: 353


« Ответ #5: 20 Август 2018, 10:37 »

Да.
Он всегда печатался.
Да и ошибка говорит, как я понимаю, о том, что макрос не в состоянии перебрать такое большое количество файлов.
Записан
Bigor
Опытный пользователь
***
Offline Offline

Пол: Мужской
Сообщений: 331


« Ответ #6: 20 Август 2018, 10:49 »

Да и ошибка говорит, как я понимаю, о том, что макрос не в состоянии перебрать такое большое количество файлов.
сомневаюсь, а сколько docx в папке?
Записан
OOKapitan
Форумчанин
***
Offline Offline

Сообщений: 353


« Ответ #7: 20 Август 2018, 10:54 »

Файл спектр247.docx, к слову, отпечатался и сейчас, несмотря на ошибку.
А в папке 29 docx, но в одном из них 72 страницы. Но и орн всегда печатался. Однако после недавнего добавления одного файла с одной страницей, о чём я писал в стартпосте, я не проверял работоспособность макроса.
Записан
OOKapitan
Форумчанин
***
Offline Offline

Сообщений: 353


« Ответ #8: 20 Август 2018, 11:25 »

Мне скоро нужно будет использовать этот макрос. Помогите, пожалуйста.
Записан
OOKapitan
Форумчанин
***
Offline Offline

Сообщений: 353


« Ответ #9: 20 Август 2018, 11:33 »

 Шокирован
Сейчас я снова попробовал запустить макрос - он отработал как часы. Так что я не понял, что это было, но похоже ко мне в гости порой стали приходить глюки. Всем большущее спасибо.
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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