Перестал работать макрос печати документов

Автор OOKapitan, 17 августа 2018, 18:01

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

OOKapitan

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

rami

Цитата: OOKapitan от 17 августа 2018, 16:01Неожиданно перестал работать рабочий макрос печати (из module2 приложенного файла).
В приложенном файле ОШ.jpg никакого module2 нет, наверно отвалился ;D . "Дяденька, а у вас ус отклеился..."  ;D ;D ;D

OOKapitan

Странно, файл почему-то не приложится.
Код такой:
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


bigor

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

OOKapitan

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

bigor

Цитата: OOKapitan от 20 августа 2018, 08:37Да и ошибка говорит, как я понимаю, о том, что макрос не в состоянии перебрать такое большое количество файлов.
сомневаюсь, а сколько docx в папке?
Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут

OOKapitan

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

OOKapitan

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

OOKapitan

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