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

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

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

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

Сообщений: 84


« Ответ #30: 14 Август 2017, 16:30 »

Вы, случаем, когда Ваши файлы открываете для печати, никаких дополнительных действий не совершаете, типа задания области печати? А то может быть, у Вас все файлы по умолчанию настроены так, что печатается ничто?
Если в файл зайти, и из него нажать файл-печать - файл печатается. А если ПКМ - то ничего. Если в область печати ввыводить НИЧТО - принтер должен вывести чистый лист - что и делает, если опять же из пустого файла нажать печать.
Сделайте, пожалуйста, макрос, который бы сам открывал каждый файл (из всех, выбранных мной (макрос запрашивает выбор файлов, я выбираю), печатал его и закрывал.
Пробовал по 15 и даже 1 ПКМ-печать - принтер чуть-чуть жужжит и ничего не печатает.
Записан
OOKapitan
Пользователь
**
Offline Offline

Сообщений: 84


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

      Иными словами, сейчас я вручную открываю каждый файл, жму файл-печать-ОК, закрываю файл. А хочу, чтобы это за меня делал макрос. Напишите пример такого кода, пожалуйста.
Записан
Rafik
Новичок
*
Offline Offline

Сообщений: 49


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

Попробуй открыть документ в видимом режиме. Для этого сделай такую правку в PrtMyFiles
Код:
 
  oProps(0).Name = "Hidden"
  oProps(0).Value = False
Можно сделать задержку вывода на печать:
1. Добавим строки в PrintMyDoc после строки oDoc.Print(oOpts())
Код:
cSoobs = "Документ отправлен на печать"+Chr(13)+Chr(13)
cSoobs = cSoobs + "Закрыть документ?"
if MsgBox(cSoobs,4+32, "Печать документа") = 6 Then
oDoc.close(True)
End If
,
2. В продедуре PrtMyFiles закоментировать строку
Код:
     oDoc.close(True)
чтобы документ автоматически не закрывался, если принтер не вывел его. Если выбрать кнопку "Нет", то документ останется открытым и его, как отработает макрос, можно будет попробовать печатнуть через сочетание клавиш <Ctrl+P> (P - латинское)
« Последнее редактирование: 15 Август 2017, 07:41 от Rafik » Записан
OOKapitan
Пользователь
**
Offline Offline

Сообщений: 84


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

Rafik,
Получилось. Большущее спасибо.
Записан
OOKapitan
Пользователь
**
Offline Offline

Сообщений: 84


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

Только выбрать можно только один файл на печать. Ctrl не помогает. Как выбрать несколько файлов?
Записан
economist
Ветеран
*****
Offline Offline

Сообщений: 746


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

OOKapitan - делайте как я:

1) Устанавливаем в OpenOffice|LibreOffice расширение MultiFоrmatSave или его аналог, при сохранении получаем "набор" ODT+PDF+...

2) Устанавливаем бесплатный для любых применений дома и в офисе PDF-XChange Viewer (https://www.tracker-software.com/product/pdf-xchange-viewer). Он умеет редактировать PDF, распознавать текст PDF-скана в невидимый слой (для поиска, копирования) и поддерживает макросы на JS - короче это божественная программа.

3) После чего (в Проводнике и вообще везде) - заходим в папку с PDF-ками, с Ctrl или Shift выделяем нужные, ПКМ, Печать - и все файлы будут распечатаны без каких-либо открытий окон, приложений итп. Быстрее ничего нет, особенно если учесть что печать на PCL/PS-лазерниках файлов PDF выполняется в среднем на 25% быстрее, чем других форматов (ODT,  ODS итп), требующих GDI-процессинга, растрирования итп.  


* ПечатьВыбранныхФайлов.jpg (81.51 Кб, 500x626 - просмотрено 5 раз.)
« Последнее редактирование: 15 Август 2017, 12:24 от economist » Записан

Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...
OOKapitan
Пользователь
**
Offline Offline

Сообщений: 84


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


2) Устанавливаем бесплатный для любых применений дома и в офисе PDF-X
Это может сделать только админ, так что не подходит
Записан
OOKapitan
Пользователь
**
Offline Offline

Сообщений: 84


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

Помогите, пожалуйста, допилить код Rafik (посты: http://forumooo.ru/index.php/topic,6509.0/msg,41732.html и http://forumooo.ru/index.php/topic,6509.30/msg,42883.html)
« Последнее редактирование: 15 Август 2017, 13:14 от OOKapitan » Записан
economist
Ветеран
*****
Offline Offline

Сообщений: 746


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

Это может сделать только админ, так что не подходит

Во-первых, его можно установить дома, а потом просто скопировать папку - всё будет работать как обычно. Во-вторых, да, админ таки-должен быть уже в курсе (с) про такую программу.

Для слабоверующих в бесплатность админов - ссылка на офсайт и лицензию:
https://www.tracker-software.com/product/pdf-xchange-viewer

И просто цитата (оттуда же):
The FREE PDF viewer download of the PDF-XChange Viewer may be used without limitation for Private, Commercial, Government and all uses, provided it is not -: incorporated or distributed for profit/commercial gain with other software or media distribution of any type - without first gaining permission.
 
« Последнее редактирование: 15 Август 2017, 14:01 от economist » Записан

Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...
OOKapitan
Пользователь
**
Offline Offline

Сообщений: 84


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

Большое спасибо. Попробую.
И всё же, может кто-нибудь может доработать макрос. Пожалуйста, помогите.
Записан
Rafik
Новичок
*
Offline Offline

Сообщений: 49


« Ответ #40: 16 Август 2017, 07:47 »

Только выбрать можно только один файл на печать. Ctrl не помогает. Как выбрать несколько файлов?
Неужели не получается выделить несколько файлов, зажав Ctrl и щелкая мышью на интересующих?
Если так, то в PrtMyFiles проверь строку   
Код:
oFileDlg.setMultiSelectionMode(true)
в скобках должно быть True. Если в скобках указать False, то возможен выбор только одного файла.
Записан
mikekaganski
Ветеран
*****
Online Online

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


« Ответ #41: 16 Август 2017, 08:10 »

Неужели не получается выделить несколько файлов, зажав Ctrl и щелкая мышью на интересующих?

В AOO мультиселект не работает. Хоть и не выдаёт никаких ошибок.
Записан

С уважением,
Михаил Каганский
Rafik
Новичок
*
Offline Offline

Сообщений: 49


« Ответ #42: 16 Август 2017, 08:31 »

Макрос писался на либре офис. Видимо ТС придется ставить хотя бы portable либре офис. Ничего сложного нет скачать и распаковать в любую папку (даже в "Мои документы" можно создать папку и распаковать туда) и оттуда запускать его. Это можно сделать и не согласовывая с Админом.
Записан
economist
Ветеран
*****
Offline Offline

Сообщений: 746


« Ответ #43: 16 Август 2017, 09:00 »

LibreOffice portable как раз обновился до 5.4.0 - рекомендую:

http://download.documentfoundation.org/libreoffice/portable/5.4.0/LibreOfficePortable_5.4.0_MultilingualStandard.paf.exe

После появления благодаря форумчанам кириллических функций с Calc, точь-в-точь как в Excel - LibreOffice стал культовым ПО в моем офисе и объектом массового "няша-идолопоклонской..."

До этого большинство имея 2 portable-офиса чаще пользовалось OO, а некоторые до сих пор, но добровольная миграция - просто праздник. Люблю такие моменты.  Подмигивающий   
« Последнее редактирование: 16 Август 2017, 09:05 от economist » Записан

Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...
OOKapitan
Пользователь
**
Offline Offline

Сообщений: 84


« Ответ #44: 16 Август 2017, 10:18 »

Всем большое спасибо.
Попробую с LibreOffice 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!