К примеру документ "Реализация товаров и услуг", если да, то как?

(0) Разве что счётчик свой сделать.

(1) Сделаю, как определить что документ ушел на принтер?

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

Можно подсчитать, сколько раз _создавали_ печетную форму. А сколько раз отправляли её на печать - вроде никак

(2) А вызов функции, которая печатает не достаточно достоверно что-ли? )

А если не через принтер, а через PrintScreen, тогда как посчитаешь?

Или имеется ввиду произвольный табличный документ?

(0) Воруют?

Ааа, наверно в смысле, пользователь нажал кнопку, но на печать не отправил... или отправил не один раз... Тогда не знаю...

занятно... по-моему никак не отследишь........

Есть документ "Реализация товаров услуг", надо знать сколько копий вышло в свет, без разница сразу ли напечатали 100 копий, или копию в день в течение 100 дней, СКОЛЬКО ПЕЧАТНЫХ ДОКУМЕНТОВ НАЯВУ.

P.S. Отрпавленный документ на принтер - считать напечатанным

(8) Да.

ищи мои ответы...

а если их на копире множить начнут?

пиши внешнюю компоненту которая будет отслеживать то что тебе надо. А средствами только 1С - никак

(15) зачем ВК ?
Да ну ?

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

(14) Тож вариант, но это можно избежать роспись синей ручкой или печатью

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

(18) хехе, а у тебя принтер уже с печатью и подписью синей ручкой чтоль печатает, да?

(17) Т.е. при нажатии на форме кнопки "Печать" считать копия = копия +1?

Тож вариант

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

(21) да, а документ сразу на принтер.

хотя вон (19) говорит что есть штатный вариант, но не говорит какой :))

(19) А подробней можно?

(22) так значит нет смысла считать распечатанные документы, но есть смысл считать подписанные, верно?

Все, надоели мене эти разговоры, давайте пишите счетчики и письма, а коду всего 10 строк в блокноте и вся печать как на ладони, и причем вся не только адинесовская, и компелить ничего не нада...
...
дерзайте парни, надоело мне в бошки вдалбливать, чито у вас все уже есть
...
- Золото у вас под ногами, вам надо только наклониться чтобы поднять...(с)

(25) Не совсем. Просто произведенная отгрузка по документу на котором нету печати - охрана не пропустит , помимо того что у кладовщика приказ ("отгружать только с печатью оператоар"), допусти что он в сговоре, тогда преграда - охрана, если охранник в сговоре, тогда выплывет при инвентаризации, тогда кладовщику по карману. А так он предоставляет два документа и  мне документ подали - я отгрузил (и отвалите от меня) - и он в какой степени прав (хотя не совсем), а так он не смжет предъявиь документ без печати

(26) Обиделся? А я знаю, что ты уже дважды или трижды говорил об этом. Причем дважды тока в этом месяце... Но поиск отключен...

(26) Как твой суперкод отлавливает печатать в файл с последующей распечаткой сколько надо? А "сохранять документы после печати"? А Microsoft Office Document Image Writer?
Я не подйопываю, мне в самом деле интересно.

(29+) Разве что как-то сохранять образы напечатанных страниц - но если печатается очень много, то пользы от этого ноль.

(28) есть такое дело, надоедает ведь когдато любому даже самому толерантному...(словечко больно уж нравится, хоть к месту хоть не кместу)
(29)(30) нет сохранять ничего не будет, но будет фиксировать все события системы печати
...
вот к примеру - отследить факт попадания в задание печати чеголибо нибыло (на все принтеры системы, можна и по отдельности фильтронуть, пожалуй так будет даже лучче)
...
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 = "MonPrnJob"
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.Name%, Имя принтера: %TargetInstance.Name%, Документ: %TargetInstance.Document%, Пользователь: %TargetInstance.Owner%, Всего страниц: %TargetInstance.TotalPages%, Время печати:  %TargetInstance.TimeSubmitted%, Отпечатано страниц: %TargetInstance.PagesPrinted%"
oConsumer.Put_
Set oFilter = Service.Get("__EventFilter.Name='MonPrnJob'")
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")
msgbox objConsumer.count
for each c in objConsumer
c.Delete_
next
...
немного доработав получите и другие события, удаление из печати, паузу, очистку джоба и т.п.
...
Первый код надо один раз запустить и все, замедьте в процессах потом не найдете никаких скриптов, а работать будет и после перезагрузки и при смене пользователя, пока второй скрипт не выполните...(причем при наличии прав можно это с одного места по всей сети устроить)

(31) Абракадабра в файлике...

(32) кодировку смени или все по англицки сделай

DDS, родной, это уже есть в БЗ. Ежели поиск работает, не поленись, прогуляйся.

(27) Кладовщик себе один экземпляр с печатью разве не оставляет?

(31) где можно покурить эту траву? ссылка на документацию есть?

(31) печатает но в логе пишет:
Компьютер: HP LaserJet 2420 PCL 6, 3, Имя принтера: HP LaserJet 2420 PCL 6, 3, Документ:  № 6 от 30 ноября 2006, Пользователь: it-ral, Всего страниц: 1, Время печати:  20061130173516.781000+180,
Отпечатано страниц: 0

почему 0?

(34) во-первых DSS, если ты мне конечно писал
а во-вторых, я хотел поискать, но поиск не работал,
а в-третьих, вопрос не я поднмимал, я лишь пытался ответить.

ретий раз за месяц по-моему эта тема обсуждается...

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