Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Office Новый топик    Ответить
 печать pdf  [new]
Serg197311
Member

Откуда:
Сообщений: 393
Office2013/32,Win64, acrobat reader x 10.1.16
Задача - открыть из excell файл .pdf, распечатать и закрыть
Подключена библиотека adobe acrobat 10

при попытке работать через dde - на строке
 lChanNo = DDEInitiate("AcroRd32", "0104-3-5.pdf")

ошибка - компонент отсутствует или поврежден
при попытке так (перед этим открываю файл через hyperlink
Set gAvDoc = GetObject(, "AcroExch.pddoc")
(пытался по разному - и через createobject.....)
Ошибка - Activex object can't create object....

Что я делаю не так и как правильно надо?
14 мар 19, 06:53    [21831993]     Ответить | Цитировать Сообщить модератору
 Re: печать pdf  [new]
The_Prist
Member

Откуда: www.excel-vba.ru
Сообщений: 1817
Serg197311,

очевидно, подключенная библиотека не поддерживает такой вид подключения. Попробуйте подключить её ранним связыванием. Сначала в Tools -References ищете нужную библиотеку, ставите галку. Далее пишите в коде создание подключения к ней. Типа того:
Dim oAcro As New AcroExch

и далее смотреть что там за методы. Хотя не факт, что это тоже даст 100% эффект, т.к. неизвестно как реализована библиотека и допускает ли она вообще обращение к себе таким методом.
И всегда можно поискать на сайте разработчика приложения возможные решения. Может быть это вообще достигается путем декларирования на уровне API...
14 мар 19, 08:49    [21832032]     Ответить | Цитировать Сообщить модератору
 Re: печать pdf  [new]
Serg197311
Member

Откуда:
Сообщений: 393
А может я просто неправильно ввожу имя приложения?
"AcroRd32", "AcroExch.pddoc"
Может есть какое нибудь "волшебное слово" , которым его можно обозвать и оно заработает?
14 мар 19, 13:32    [21832469]     Ответить | Цитировать Сообщить модератору
 Re: печать pdf  [new]
Казанский
Member

Откуда:
Сообщений: 1307
Serg197311
Задача - открыть из excell файл .pdf, распечатать и закрыть
Можно средствами ОС - как бы в Проводнике сделать правый клик на файле - Печать. Пример - в русском Windows распечатать файл c:\temp\example.pdf
CreateObject("Shell.Application").Namespace("c:\temp").parsename("example.pdf").invokeverb "&Печать"
Подробнее: http://www.script-coding.com/WSH/Shell.html
14 мар 19, 17:52    [21832895]     Ответить | Цитировать Сообщить модератору
 Re: печать pdf  [new]
Serg197311
Member

Откуда:
Сообщений: 393
Казанский, Спасибо!
Вот такая конструкция сработала
  Set objShellApp = CreateObject("Shell.Application")
            Set objFolderItem = objShellApp.Namespace("\\aero.local\Shared Folder\PRODUCTION\PDM\ПКД\cards\0104-3-10.pdf").Self
            Set objFIVs = objFolderItem.Verbs()
            Set objFIV = objFIVs.Item(2) '"Пе&чать"
            objFIV.DoIt
15 мар 19, 07:55    [21833233]     Ответить | Цитировать Сообщить модератору
 Re: печать pdf  [new]
Serg197311
Member

Откуда:
Сообщений: 393
Вот тока ********* ( много мата) печатает совсем не в том порядке, как на печать посылается........ Как Бог на душу положит - так и печатает.... Задержку пробовал - че то не помогло.... дожидаться пока очередь печати на принтере освободится и потом слать следующий файл или задержку увеличивать?
18 мар 19, 20:41    [21836566]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Office Ответить