ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / печать pdf
6 сообщений из 6, страница 1 из 1
печать pdf
    #39785636
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
Office2013/32,Win64, acrobat reader x 10.1.16
Задача - открыть из excell файл .pdf, распечатать и закрыть
Подключена библиотека adobe acrobat 10

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


ошибка - компонент отсутствует или поврежден
при попытке так (перед этим открываю файл через hyperlink
Код: vbnet
1.
Set gAvDoc = GetObject(, "AcroExch.pddoc")

(пытался по разному - и через createobject.....)
Ошибка - Activex object can't create object....

Что я делаю не так и как правильно надо?
...
Рейтинг: 0 / 0
14.03.2019, 06:53
| Ответить | Цитировать | Написать  
печать pdf
    #39785668
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Serg197311,

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


и далее смотреть что там за методы. Хотя не факт, что это тоже даст 100% эффект, т.к. неизвестно как реализована библиотека и допускает ли она вообще обращение к себе таким методом.
И всегда можно поискать на сайте разработчика приложения возможные решения. Может быть это вообще достигается путем декларирования на уровне API...
...
Рейтинг: 0 / 0
14.03.2019, 08:49
| Ответить | Цитировать | Написать  
печать pdf
    #39785951
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
А может я просто неправильно ввожу имя приложения?
"AcroRd32", "AcroExch.pddoc"
Может есть какое нибудь "волшебное слово" , которым его можно обозвать и оно заработает?
...
Рейтинг: 0 / 0
14.03.2019, 13:32
| Ответить | Цитировать | Написать  
печать pdf
    #39786179
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Serg197311Задача - открыть из excell файл .pdf, распечатать и закрытьМожно средствами ОС - как бы в Проводнике сделать правый клик на файле - Печать. Пример - в русском Windows распечатать файл c:\temp\example.pdf
Код: vbnet
1.
CreateObject("Shell.Application").Namespace("c:\temp").parsename("example.pdf").invokeverb "&Печать"

Подробнее: http://www.script-coding.com/WSH/Shell.html
...
Рейтинг: 0 / 0
14.03.2019, 17:52
| Ответить | Цитировать | Написать  
печать pdf
    #39786358
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
Казанский, Спасибо!
Вот такая конструкция сработала
Код: vbnet
1.
2.
3.
4.
5.
  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
...
Рейтинг: 0 / 0
15.03.2019, 07:55
| Ответить | Цитировать | Написать  
печать pdf
    #39788075
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
Вот тока ********* ( много мата) печатает совсем не в том порядке, как на печать посылается........ Как Бог на душу положит - так и печатает.... Задержку пробовал - че то не помогло.... дожидаться пока очередь печати на принтере освободится и потом слать следующий файл или задержку увеличивать?
...
Рейтинг: 0 / 0
18.03.2019, 20:41
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / печать pdf
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=11&tid=2172104]:
 0ms
get settings:
 12ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 278ms
total:  413ms
созд. / загр.: 413ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]