Задача такая: Имеется документ с печатной формой, нужно узнать печатался он или нет. Т.Е. не признак того выводилась ли на экран печатная форма или нет, а зафиксировать сам факт того что документ на принтер послан и успешно был  с него распечатан. Может кто сталкивался с такой задачей.

(0) Никак :(

(0) поглядеть на лоток

точно

давай внятные имена документам при печати, а потом смотри лог сервера печати

А можно поподробней про лоток. Я просто начинающий программер

(5) бугагаг!

рыдаю...

А программно скриптами никак нельзя узнать

у меня просто сетка большая под разными OS, не знаю что с лотками получится ли, а признак болжен быть однозначный
Все равно за идею спасибо.

(5) гыыыыы
лоток аппаратная штука, программисты ими не занимаются

(5)+(8)Узнать "программно скриптами" есть ли в лотке распечатанный док? о_0  Хм... ща покурю...

посылай на печать документ печатай на нем случайное число , потом проси опертаора ввести это случайное число, если ввод будет праивльный значит он напечатан, если нет то не напечатан.

имхо (12) изврат но зато позволяет точно узнать что документ напечатан и принят юзвером

сталкивался - решил так:
модальный диалог с вопросом пользователю "Докмент распечатан?" - "Да" "Нет"

(12) Операторы за такую фичу разорвут прога на фиг ))))))

(15) иногда жесткие меры требуются, например при таком вводе док помечается как напечатнный и больше не доступный для печати. типа не хрен бумагу перводить 100 раз :-) шутка кончено но иногда и правда требуется в разных целях.

мне вот интересно - зачем это все?

например задание на сборку печатется кладовщику, в этот момент после печати документ перводиться в статус исполняется. так вот лучше всего это делать после того как он получил из принтера этот листок.

(16) Как то делал нечто похожее. Только в моем случае, первый экземпляр дока печатался как обычно, а все последующие с пометкой "копия".

(19) ну или так тоже тема :-)

по телефону или факсу, аськой, смс, просто NetMitting или чатом через сеть, почтой Notes Lotus, e-mail.

шутка.

(0) купи вебкамеру, направь на принтер, и пусть транслирует картинку:)

НУ а как он понимал что его второй раз печатают????

+(23) а что, вроде хорошая идея, главное дешево и соорудить плевое дело :)

(0) Если принтер поддерживает логи - тяни оттуда. Больше вариантов незнаю.

и нужно это вовсе не для экономии бумаги, просто операторов много путаются они, а с признаком у них вся неразбериха закончится.

Ввести новую должность в штат "Смотрящий за принтером". Ему журнал в зубы и заносит туда ручками запись о печати.

Если пользователь хочет напечатать несколько экземпляров одного документа, то он при печати документа приоткрывает лоток бумаги, принтер говорит - ошибка. При закрытии повторяет лист ещё раз - а ксероксы вообще никто не отменял.
В ресторанных программах для отслеживания печати заказов на заказе печатается Штрих-код, и если человек берёт заказ с принтера, он проводит штрих-кодом возле сканера - тогда система знает, что заказ ушёл в исполнение.
P.S. если листок вышел из принтера это не означает, что документ ушёл в обработку, это означает, что листок вышел из принтера.

(29) это означает что он получил задания на сборку , не печатал же он его чтоб в туалет сходить с ним.

Да не хочу я им повторную печать отменить, просто признак хочу поставить и все.

как говориться время пошло негры пошли собирать, и если честно мало волнует что с этим листком будет делать, получил расписался по 3.14ил собирать!

(0) "Имеется документ с печатной формой, нужно узнать печатался он или нет."
1. Запретить печать незаписанные документы.
2. Завести справочник "ЛогПечати" по кнопке "напечатать" писать в это лог документ и количество раз печати(инкрементарно).
3. поправить процедуру "ПриУдаленииДокумента", что-бы подчищались логи этого справочника...
Так пойдет?

У пользователей в другой проге что то подобное реализовано,но там другой случай там на печать сразу пакет посылается и все признаки сразу раставляются. Т.е. обычной печати нет у документа(даже форму не показывает). Привыкли они.

да сделай проще просто при отправки на печачть счетки прибовляй в результате оригинал будет со счетчиком 1 напечатан , 2 - копия, 3 - уже задолбали печатать
:-)

(34) Если под другой прогой понимается 1С-ка, то там наверняка заюзано Напечатать(). Сделай также, а в сам док добавь реквизит Отпечатан и прибавляй к нему 1 при каждой печати.

(36) А при печати можифицировать документ - кошерно?

Уважаемый(ая) trdm, мне все понятно, кроме кнопки "напечатать". Что делает эта кнопка выводит печ форму или непосредственно распечатывает. мне нужно чтобы возможность первого осталась, а по второму событию поставить признак.

(38) - А как ты узнаешь, напечатали ли печатную форму, что ты вывел на предпросмотр?
Напечатать(<?>);
Синтаксис:
Напечатать(<Флаг>)
Назначение:
Напечатать таблицу без предварительного просмотра (печать без открытия окна редактирования).
Параметры:
<Флаг> - необязательный параметр. Режим запроса диалога печати: 1 - запрашивать диалог печати (по умолчанию), 0 - не запрашивать.
Замечание:
Метод может использоваться при работе с таблицей в режиме ввода данных.

Весь вопрос сводится к тому чтобы программно отловить момент печати

(37) низнаю, маладой ищо :)

trdm, он *-ый.
Имеется ввиду так кнопка, которая запускает процедуру печати. Она может называться как угодно, в зависимости от фантазий кодера...

(40) блин, позови программиста, он тебе найдет точки входа....
Они разные, от тупого с кнопкой [Напечатать] и процедурой в теле модуля документа.
До всяких хитровывернутых подключенных внешних форм.

Как вариант, сделать две кнопки - первая показывает форму с пустой областью печати, чтобы её не печатали, а вторая - печатает напрямую.
Но остаётся вопрос, что происходит с заданием на принтере - в Windows программа не может знать состояние принтера, если последний этого не хочет.
Конечно, в настройках принтера можно поставить "Печатать Напрямую На Принтер", тогда вероятность потери напечатанного документа будет минимальной.

(44) Ненапечатание в следствие неохоты принтера неработать нешоркает программиста.

Очень хорошая идея в (29) на счет штрихкода

(40) Тут 1Ска тебе не товарищ! Она отправляет док в спулер печати Windows, а что там с ним будет дальше ей пофиг. Спулер тоже не лучше, он отправит док в буфер принтера и тоже свободен. Да и принтер тоже не без греха - прогонит все свои механизмы печати, а в картридже уже давно тонера нет ;)

(44) Могут быть различные нюансы: зажевало бумагу, кончается тонер - короче нет полноценной распечатки

+(48) если только кому одному назначить полный доступ на печать (без ограничений), но это тоже не самый лучший способ,
мне про сканер штихкода идея понравилась

+(49) "полный доступ на печать (без ограничений)"  -- Это нас случай если нормально не распечаталось

Две кнопки это классный вариант, но я жуткий формалист. А если пользователю захочется что то поменять на печ форме до печати, может дописать что или как, он меня всегда будет звать. Да и про возможность сохранить печ форму в каком- то фомате тоже можно, а дальше уже печатать.

2(51) А еще пользователь может срисовать с экрана на бумажку, потом заново то же набить в Экселе и распечатать. Это тоже хочешь программно отслеживать?

(0) ПРОчитал ветку и ууууууулыбнуло

сделать лист бумаги бланком строгой отчетности... напичкать серийник и номер... выдовать под личную подпись заведующего филиалом или начальника департамента... в конце месяца последних заставить сдавать отчетность... сколько и куда бумаги ушло... испорченые листы прилагать к отчету

strComputer = "имя компьютера"
strDomain = "домен"
strUser = "ИмяПользователя"
strPassword = "Пароль"

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(strComputer, _
   "root\CIMV2", _
   strUser, _
   strPassword, _
   "MS_409", _
   "ntlmdomain:" + strDomain)

Set dtmStartDate = CreateObject("WbemScripting.SWbemDateTime")
Set dtmEndDate = CreateObject("WbemScripting.SWbemDateTime")
DateToCheck = CDate("06/11/2008")
dtmStartDate.SetVarDate DateToCheck, CONVERT_TO_LOCAL_TIME
dtmEndDate.SetVarDate DateToCheck + 1, CONVERT_TO_LOCAL_TIME

Set colLoggedEvents = objWMIService.ExecQuery _
   ("Select * from Win32_NTLogEvent Where Logfile = 'System' and TimeWritten >= '" _
   & dtmStartDate & "' and TimeWritten < '" & dtmEndDate & "'"  & " and SourceName = 'Print'" _
   & " and EventCode = 10" _
   & " and User = LIKE '%locUser%'")
For Each objEvent in colLoggedEvents
  Wscript.Echo "*----------------------------------------------------------------------------*"
   Wscript.Echo "Category: " & objEvent.Category & VBNewLine _
   & "Logfile: " & objEvent.logfile & VBNewLine _
   & "Computer Name: " & objEvent.ComputerName & VBNewLine _
   & "Event Code: " & objEvent.EventCode & VBNewLine _
   & "Message: " & objEvent.Message & VBNewLine _
   & "Record Number: " & objEvent.RecordNumber & VBNewLine _
   & "Source Name: " & objEvent.SourceName & VBNewLine _
   & "Date Written: " & objEvent.Data & VBNewLine _
   & "Time Written: " & objEvent.TimeWritten & VBNewLine _
   & "Event Type: " & objEvent.Type & VBNewLine _
   & "User: " & objEvent.User
Next

ладно, варианты копирования документа отбросим, как и то в каком сотоянии принтер. Нужен лишь признак "послали докумен или нет".

+(54) за пронос своей бумаги расстреливать.

О скриптики пошли, ща мы их потестим.

Этот скрипт только список событий успешного завершения печати выводит.

А вот если кто подскажет каким образом отобрать только события определенного пользователя...

все делается без единого скрипта
(39) непренужденно

(55) и умереть ? а с датетаймами обломишся при случае
а если и скриптовать, то все просче, все будет в одном месте и читай хоть через год

Написать where ... and user='1S-user' не пробовали.
Также можно напрямую писать в порт.
Кроме того, если у вас HP скажет 1050, то если в нём кончился тонер, то принтер этого не заметит, и будет куча пустой бумаги.
(46) - эта идея была реализована в Штрих-М ресторан - фронт-офис, но скорее там была попытка реализации, так как это не заработало.
P.S. если ставить специальный принтер на термоленте, то у него есть возможность двустороннего управления из программы.

Можно посылать сразу на принтер, без предпросмотра, вот пример:                
Если (Константа.Показывать=Да) ИЛИ (ПустоеЗначение(Константа.Показывать)=1)Тогда
  Таб.ТолькоПросмотр(1);
  Таб.Показать("Печать наряда на сборку","",1);
Иначе
  Таб.ПараметрыСтраницы(1,100,,,,,,,,1,,СтрПринтер);
  Таб.Напечатать(0);
КонецЕсли;

Счетчик печати можно организовать так - для каждой печатной формы генерится уникальный номер, например:
ИДДок = ЗначениеВСтрокуВнутр(Док) + Строка(НомерФормы);
который при печати заносится в специальный справочник вместе с документом, при печати проверяешь наличие его в справочнике, если есть - значит печать повторная. Можно счетчик добавить.

(64) а для Таб.Показать("Печать наряда на сборку","",1); кто будет считать ?
+ СтрПринтер="\\комьютервсемдающейбухши\самый задротный принтер на свете"

А ещё можно совместить принтер и сканер, сканировать распечатанное. Или совместить принтер и сканер штрихкода, при каждой печати новый штрихкод назначать документу и в колонтиткуле печатать. :)))

(65).
На чужом компьютере вообще сложно узнать, что напечаталось, а что нет.
Не факт, что на нём можно запустить WMI-запросы.
Поэтому (1) был прав, а всё остальное - это рассуждения на тему, если нельзя, но очень хочется.

(67) достойный ответ был в (4) но только он сам толком не понял о чем сказалЮ даже логов ненадо

хотя соглашусь, что самый-присамый верный (1)

Приведу возможную процедуру выбора принтера:
Процедура ВыбПринтера()  
   сзПринтер  = СоздатьОбъект("СписокЗначений");
   //Получить список принтеров:
   wshNetwork = createObject("WScript.Network");
   oPrinters  = wshNetwork.EnumPrinterConnections();
   i = 0;
   While i < oPrinters.count() - 1 do
       сзПринтер.ДобавитьЗначение(СокрЛП(oPrinters.item(i + 1)));
       i = i + 2;
   enddo;                      
   ЗН = "";
   Если сзПринтер.ВыбратьЗначение(ЗН, "Выберите принтер") = 1 Тогда
       СтрПринтер = СокрЛП(ЗН);
   КонецЕсли;
КонецПроцедуры

(70) а где локальные брать ? и где брать джетдиректовские ?

Кстати, в настройках принтера есть возможность сохранять задания после печати - потом нужно посмотреть, где они сохраняются и как их читать.
(70), а что стандартный выбор принтеров не прокатывает ?

Похожая задача решена примерно так как описано выше.  Печать идет через внешнюю обработку, вызывается из журнала.  По каждому факту повторной печати автор пишет служебку. Вот такие пироги.

резюмируем:
я так и не понял, могу я на своем компе узнать - успешно ли напечатался на расшаренный принтер на другом компе? где ведется лог успешных заданий печати! и прочее (Ковычки - сказал и молчит дальше)...

(59) а подробнее чуть - что "считает" - успешные печати на локальный притер или на расшаренный тоже?

(74) лог ненужен, достаточно (4) и (72) почитать и выкинув ненужное - получить результат, без программирования.
(ну а при админских правах, скрипт из 10 строк и все инфа по всей сети у тебя в кармане)

(75) на всех, но он на первом же задании умрет

+(76) если хочется повозиться с вми ищи информацию о постояных получателях событий

2 Ковычки: спсб, ибо я не спец в этих делах. Конспективно - где этот "лог сервера печати" (4) искать?

у меня была задача. Операторы из офиса посылали документы на печать на склад, у документа устанавливался признак распечатан. Кладовщик получая форму из принтера совал ее под сканер штрих кода, у документа устанавливался признак получен. Если с документом со статусом распечатан не производились никакие действия в течении 5 минут, он выделялся в журнале документов красным цветом и начинались разборки операторов с кладовщиками.
зы
на самом деле это только часть задачи.

(80) хорошо придумали, а какие другие части ?

Да, это зачетное решение, спсб.
прикручу аналогичный подход к немного другому действию....

(81) это не я придумал это жизнь придумала. Складской учет + адресный склад + логистика. Еще статусы документов: собран, частично собран, не едет, возврат, частичный возврат. То есть комуникация офиса и склада посредством статусов документов. Учитывая что при этом меняется цвет строки журнала документов, этакое общение посредством цветов. я когда это придумывал использовал метод индейских костров. Индейцы чтобы передать информацию  разжигали костры которые давали дым разных цветов.
зы
а может и звиздеж, я про индейцев.

(79) да там просто, на принтерах выставляешь сохранять документы после печати и радуйся
А с поставщиком/получателем
где то так

set wshshell=CreateObject("wscript.shell")
call wshshell.run("%comspec% /c mofcomp -N:root\cimv2 %SystemRoot%\system32\Wbem\Wbemcons.mof&&pause",9,-1)
Computer="."
Set Service = GetObject("winmgmts:\\" & Computer & "\Root\CIMV2")
Set oFilter = Service.Get("__EventFilter").SpawnInstance_()
oFilter.Name = "MonPrnJobLog"
oFilter.QueryLanguage = "WQL"
oFilter.Query = "SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_PrintJob'"
oFilter.Put_
Set oConsumer = Service.Get("LogFileEventConsumer").SpawnInstance_()
oConsumer.Name = "MonPrnJobLog"
oConsumer.FileName = "C:\MonPrn.txt"
oConsumer.Text = "Пользователь: %TargetInstance.Owner%, Компьютер: %TargetInstance.HostPrintQueue%, Принтер: %TargetInstance.Name%, Документ: %TargetInstance.Document%, Всего страниц: %TargetInstance.TotalPages%, Время печати:  %TargetInstance.TimeSubmitted%, Отпечатано страниц: %TargetInstance.PagesPrinted%"
oConsumer.Put_
Set oFilter = Service.Get("__EventFilter.Name='MonPrnJobLog'")
msgbox oConsumer.Text
Set oConsumer = Service.Get("LogFileEventConsumer.Name='MonPrnJobLog'")
Set oBinding = Service.Get("__FilterToConsumerBinding").SpawnInstance_()
oBinding.Filter = oFilter.Path_
oBinding.Consumer = oConsumer.Path_
oBinding.Put_


Чтобы удалить поставщика


Set objService = GetObject("winmgmts:\\.\Root\CIMV2")
Set objFilter = objService.ExecQuery("select * from __EventFilter")
for each c in objFilter
c.Delete_
next
Set objConsumer = objService.ExecQuery("select * from LogFileEventConsumer")
for each c in objConsumer
c.Delete_
next


(29) Так и делается обычно
А гланды через .опу - зачем?

(80) А если заказ вылез а его никто не поднес к сканеру? А если он вообще не вышел из принтера (сбой, замятие, вырубили эл/эн)?
У нас печатают заявки на складе сами себе, тупо работает конвейер + заявки выстраиваются по приоритетам

(79) Выложишь на инфостарт "свое" очередное исследование? :)

(83) не ты первый - не ты последний... ;-)
на старой работе у мну аналогичная система года два вертелась по статусам заявок для общения между продажниками, складом и выпиской документов - с учетом того, что активно юзалась схема "заявки-заказы", причем под одну заявку от 5-6 поставщиков товар шел... и все это отслеживалось и отображалось...
.. и на текущей работе аналогичная система работает месяцев 9 уже...

(0) Сам не использовала, но по памяти помню FormEx.dll ищи здесь http://dorex.ru/
Глобальный перехватчик ПриПечатиТаблицы

(88) обязательно! как только будет доведено мною (если осилю ;-) до "промышленного" исполнения по принципу "взял и юзай" (или подробная пошаговая инструкция)
..
а почему "свое" - в кавычках... намек на что?
я где-то чужое за свое выдавал?

(90) формекс не решает вопроса "был ли напечатан" документ.
в свое время Абрахамс выкладывал решение мониторинга очереди заданий на печать...