Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller? / 25 сообщений из 44, страница 1 из 2
  1  все
09.08.2004, 22:00:18
    #32641769
Лифчик
Лифчик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
Задача - переместить созданный Distillerom файл с Десктопа (где он по умолчанию оказывается), в нужную директорию.
Кусок кода
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
PDFFileName = parentFN & "\" & NewFileName & ".pdf"
WordApp.ActivePrinter = "Acrobat Distiller"
ActiveDocument.PrintOut
PDFDesktop = PDFDirectory & NewFileName & ".pdf"
 'Пока файл PDF не создан ... 
While objFSO.FileExists(PDFDesktop) = False
DoEvents
Wend
MsgBox ("Иконка Дистиллера исчезла?")
 'Или запись в него Дистиллером не закончена ... 
While GetAttr(PDFDesktop) = vbReadOnly
DoEvents
Wend
 'Мы не идем дальше 
MsgBox ("Перемещаем файл с Desktop в директорию")
objFSO.MoveFile PDFDesktop, PDFFileName
Без MSGbox-ов не работает, т.е. все время натыкаюсь на не обрабатываемый в процедуре File not found,
хотя вроде везде DoEvents стоят. Я конечно 15-20 раз могу жать на кнопки, но если это будет больше сотни, то хреново:(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2004, 22:08:24
    #32641771
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
а если дождаться момента прекращения увеличения размера файла ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2004, 22:18:33
    #32641778
Лифчик
Лифчик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
Попробую, спасибо, тока завтра уже. Заманала меня проблема. Неужели нельзя без дифференцирования, блин, определить окончание процесса ?:(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2004, 17:10:55
    #32649251
Лифчик
Лифчик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
Нет, с размером не прокатывает, он скачком меняется. Более общая постановка вопроса (даже две)
1. Как отследить, отпустило ли приложение файл (т.е. закончило в него писать)
Мой вариант проверки не получился - objFSO.FileExists - давало, что файл УЖЕ существует, а GetAttr - говорила, что такого файла ЕЩЕ нет, и соответственно не считывала атрибуты
если 1-ый преодолеть нельзя, то как тогда
2. Отследить (через Task manager, WinAPI???) - что аппликация (Acrobat Distiller) еще работает (внизу, например, иконка лежит)

Заранее благодарен за участие (или за внимание)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2004, 17:22:28
    #32649279
Victosha
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
1) попробовать открыть его монопольно - если кто-то еще с файлом работает - номер не пройдет.

2) окна перехватывать и перечислять. щас попробую вбс-ный пример раскопать. ( на форуме пару раз пробегал, а искать лениво)
(с выражением лица)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2004, 17:25:37
    #32649284
Alexey Sh
Alexey Sh
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
Есть способ - но он может не понравиться. Crystal reports называется
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2004, 17:48:34
    #32649317
Victosha
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
не шал с разбегу.
посмотри у соседей на форуме VB- там точно быть должно.


(с выражением лица)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2004, 20:00:29
    #32649444
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
Лифчик
2. Отследить (через Task manager, WinAPI???) - что аппликация (Acrobat Distiller) еще работает
acrodist.exe не выгружается из RAM - через трей ненадёжно,
предлагаю на скорую руку мониторить очередь печати:
если ОС - XP то , ищем файлик prnjobs.vbs
суем пусть в корень D: и туда-же коммандный файлик(lif.bat - нехай):
Код: plaintext
1.
cscript prnjobs.vbs -l -p "Acrobat Distiller" > d:\pdf.log
lif.bat запускаем из Access в цикле через Shell и наблюдаем размер pdf.log
очередь пуста: - 155 байтиков
Билл
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.


Number of print jobs enumerated 0

очередь полна: - 498 байтиков
Билл
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.



Job id 16
Printer Acrobat Distiller
Document RAll
Data type RAW
Driver name AdobePS Acrobat Distiller
Description Acrobat Distiller, 16
Machine name \\HOUSE
Job status Printing
Notify excadmin
Owner excadmin
Pages printed 0
Parameters
Size 1306624
Status OK
Status mask 16
Time submitted 08/13/2004 19:56:32
Total pages 74

Number of print jobs enumerated 1

далее можно расковырять prnjobs.vbs и напрямую определять состояние очереди
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2004, 20:33:56
    #32649471
Лифчик
Лифчик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
Shuhard, уже теплее, а то если от окон и иконок плясать, так это вообще через задницу ИМХО. Подскажи вечному студенту, что изменится, если для W2000?(хотя библиотека Microsoft (R) Windows Script Host Version 5.6) уже проапгрейдена 5.6.0.8515)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2004, 21:32:46
    #32649494
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
ЛифчикShuhard, уже теплее, а то если от окон и иконок плясать, так это вообще через задницу ИМХО. Подскажи вечному студенту, что изменится, если для W2000?(хотя библиотека Microsoft (R) Windows Script Host Version 5.6) уже проапгрейдена 5.6.0.8515)

выкладывай bat и vbs в корень C:
запускай bat у меня под 2000 сервером работает,но Disteller не встаёт(проверял на HP)
дальше по обстановке - если пойдёт см содержимое vbs
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2004, 22:41:11
    #32649524
Victosha
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
Ай да Shuhard, опять принтер уделал...
Хде ж ты раньше был, когда Саныч с принтером мучался?
:))

Лифчик, - где-то в ValueAdd\...\Mgmt на установочном диске оси должен валяться WbemODBC (на сайте Microsoft, наверно тоже) - ОДБС-драйвер для WMI

тохда типа пишешь
SELECT *FROM Win32_PrintJob и имаешь шчастье пряма под акцессом.

Щас проверил через cim-студию - c printJob-ом одна деталь есть - класс Win32_PrintJob активен до тех пор, пока живо задание в очереди печати.
Кончилось задание - нет представителя класса типа одбс-шний запрос пустой рекордсет вернет)

но, вообще-то говоря, все это не совсем слежение - все-таки опрос...

Так что Sleep все равно понадобится.
-------------------------------------------
Однако по объему кодирования и способу обращения из акцесса - пожалуй самый и короткий и "правильный путь".
-------------------------------------------

Ну не Shuhard, а кремень просто...






(с выражением лица)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2004, 23:52:32
    #32649546
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
Victosha - я ведь админ больше,чем базовик ---> Shell/скрипт стиль.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2004, 00:15:12
    #32649553
Лифчик
Лифчик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
Ой, горячо уже! Чую в понедельник я здесь уже в благодарностях нешуточных рассыплюсь. Спасибо, ребята, вам за все (уже начал)

ЗЫ Ну почему же все-таки в Виндовс так тяжело за процессами уследить? Казалось бы есть уже файл, один глаз его видит, а другой глаз на мгновение позже говорит - эн-нет, это у тебя глюки. Прям принцип неопределенности какой-то :(

ЗЗЫ Может мне по такому случаю, перед While GetAttr(PDFDesktop) = vbReadOnly какой-нить sleep поставить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2004, 00:25:00
    #32649555
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
VictoshaАй да Shuhard, опять принтер уделал...
Хде ж ты раньше был, когда Саныч с принтером мучался?
:))
А мне там как раз Shuhard и помог. :^)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2004, 00:51:03
    #32649560
Victosha
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
Саныч,
любуйся, как он теперь лифчику помог:

помощь просмотрена через акцесс (WBemODBC) - любуюсь очередью свово принтера

ПСЫ
сначала взял драйверок с одной из установок 2к - что-то кракозябрил.
Плюнул, взял с хпюка - мана сенге результат


(с выражением лица)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2004, 00:53:52
    #32649562
Victosha
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
Лифчик-сорри, рука дрогнула. ты БОЛЬШОЙ Лифчик.



(с выражением лица)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2004, 01:00:17
    #32649563
Лифчик
Лифчик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
VictoshaЛифчик-сорри, рука дрогнула. ты БОЛЬШОЙ Лифчик.



(с выражением лица)Этта точна :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2004, 19:47:39
    #32649815
Victosha
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
Лифчик, ты что молчишь то? Что делать то решил со своим самогонным аппаратом?


(с выражением лица)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2004, 20:46:36
    #32649835
Лифчик
Лифчик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
VictoshaЛифчик, ты что молчишь то? Что делать то решил со своим самогонным аппаратом?


(с выражением лица)Дык дома у меня ХР и этого дистиллера нету - не могу попробовать. На работе, в понедельник. А сейчас - отдыхать, отдыхать :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2004, 17:11:11
    #32651470
Лифчик
Лифчик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
Долго шел по ложному пути (показалось, что запуск нового экземпляра ворда в скрытом режиме решает проблемы - облом, только диагностика другая получалась, а так - теже грабли).

Теперь терзаю WBemODBC-драйвер (вернее он меня). Драйвер сетапил с сети, он что-то там вякнул про невыясненную авторизацию, однако встал, но версия от 2000-го аж 99 года. нужный селект она не делает. У системщиков под руками XP только русский. Как думаете - не сломается у меня на компе чего-нить, если попробовать от русской поставить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2004, 17:27:44
    #32651515
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
ODBC - конечно хорошо.
вопрос - bat - ник работает ?

есть от XP Corp (англ) - 162 Кбайт - давай мыло - метну !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2004, 17:43:54
    #32651554
Лифчик
Лифчик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
2 Shuhard, мыло раскрыл, там подчеркивание, буду признателен, если метнешь в мой-адрес чего-нить:) Ватник еще не пробовал, щас меня начальство к тому ж другую фичу затребовало срочно сделать в проге
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2004, 17:50:56
    #32651581
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
лови!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2004, 17:55:33
    #32651591
Лифчик
Лифчик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
Спасибо, дошло, беру паузу по прихоти начальства :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2004, 18:05:18
    #32651617
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller?
ЛифчикСпасибо, дошло, беру паузу по прихоти начальства :(
надо-же у кого-то Exchange до сих пор стоит - крепкие видать админы у тебя на работе!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Можно ли все-таки нормально отследить из Аксесса печать Word-док-та на Distiller? / 25 сообщений из 44, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 378ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1672305]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 73ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 231ms
total:  378ms
x
x
Закрыть


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