К списку форумов К списку вопросов
ПараметрыСтраницы ( ИмяПринтера)
вин
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) Это хорошо, жаль, эту ссылку потерял вчера :((
Но зато есть и плюс: в обработке скрипт формирует ТЗ ;)

К списку вопросов на форуме 1C

>>