![]() |
![]() |
вин 21.09.2004 - 19:51 |
сделал операторам чтобы печатали сразу на принтер через ИсхТабл.Напечатать(0);, врезультате этого возникают иногда проблемы посылают на печать а на принтер не выходит, попробывал через ИмяПринтера в ПараметрыСтраницы непомогает, а они к хорошему привыкли и тепеть говорят сделай нам чтобы печатала и нечего больше не нажимать :) как правильно пользоваться ИмяПринтера в ПараметрыСтраницы может кто поможет а да терминал стоит принтеры указаны у пользователя на сервере для его логина |
VZ 1 - 21.09.2004 - 20:38 | ИмяПринтера - текстовая строка, копируй из Свойства принтера, напр. "\\Server\HP1200". Есть скрипт у меня где-то, позволяющий определить все доступные принтеры, найду - выложу. |
вин 2 - 21.09.2004 - 20:41 | электронка |
op 3 - 21.09.2004 - 21:11 | 1+ только имена Принтеров при этом должны быть короткие и без пробелов |
trdm 4 - 21.09.2004 - 22:11 |
<script language="VBScript"> Set WshNetwork = WScript.CreateObject("WScript.Network") Set oDrives = WshNetwork.EnumNetworkDrives Set oPrinters = WshNetwork.EnumPrinterConnections WScript.Echo "Network drive mappings:" For i = 0 to oDrives.Count - 1 Step 2 WScript.Echo "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i+1) Next WScript.Echo WScript.Echo "Network printer mappings:" For i = 0 to oPrinters.Count - 1 Step 2 WScript.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1) Next </script> |
trdm 5 - 21.09.2004 - 22:13 | Переведешь на язык 1С? |
вин 6 - 21.09.2004 - 22:30 | думаю да |
вин 7 - 21.09.2004 - 22:32 | толко что мне вмето WScript.Network поставить в 1с |
trdm 8 - 21.09.2004 - 22:40 |
//******************************************* Процедура Сформировать() WshNetwork = СоздатьОбъект("WScript.Network"); oDrives = WshNetwork.EnumNetworkDrives(); Сообщить(oDrives.Count()); oPrinters = WshNetwork.EnumPrinterConnections(); Сообщить(oPrinters.Count()); КонецПроцедуры у меня ругается на oPrinters = WshNetwork.EnumPrinterConnections(); : "err oPrinters = WshNetwork.EnumPrinterConnections(); {D:\DATABASE\ПЛАНИРОВАНИЕ\EXTFORMS\WSCRIPTNETWORK.ERT(6)}: : " Может потому что принтера вообще нет? |
Синьор 9 - 21.09.2004 - 22:42 | Я где-то в факе видел про это. |
вин 10 - 21.09.2004 - 22:43 |
завтра попробую сейчас дома |
trdm 11 - 21.09.2004 - 22:50 | Удачи |
VZ 12 - 22.09.2004 - 02:59 |
вин, я отправил тебе ЕРТ-ник с формированием списка принтеров в ТЗ. Там же и скрипт. Очень похоже на (4) и (8), но работает ;) Вот текст: 'VBScript Set WSHNetwork = WScript.CreateObject("WScript.Network") Set colDrives = WSHNetwork.EnumPrinterConnections If colDrives.Count = 0 Then MsgBox "Подключенных принтеров нет", vbInformation + vbOkOnly, "Работа с WSHNetwork" Else strMsg = "Текущие принтеры: " & Chr(10) For i = 0 To colDrives.Count - 1 Step 2 strMsg = strMsg & Chr(10) & colDrives(i) & Chr(9) & colDrives(i + 1) Next MsgBox strMsg, vbInformation + vbOkOnly, "Работа с WSHNetwork" End If |
VZ 13 - 22.09.2004 - 03:02 | To (3): у меня получается и с пробелами, и по русски... |
VZ 14 - 22.09.2004 - 13:59 |
To вин Почту получил? |
warenic 15 - 22.09.2004 - 14:07 | http://www.sinor.ru/~my1c/knowhow/get_prn.html |
VZ 16 - 22.09.2004 - 14:14 |
(15) Это хорошо, жаль, эту ссылку потерял вчера :(( Но зато есть и плюс: в обработке скрипт формирует ТЗ ;) |