8 / 7 / 0
Регистрация: 27.09.2015
Сообщений: 836
1

Одновременная печать документов на разные принтеры

15.11.2019, 20:25. Показов 711. Ответов 3
Метки нет (Все метки)

Добрый день.

Есть печать по нажатию кнопки в файле. Открывается текстовый файл именно через ворд (так нужно моим коллегам) и печатается. Код такой:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub PrintList() 
 
Dim objWord As Object, objDoc98 As Object
     
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set objWord = CreateObject("Word.Application")
 
    Set objDoc1 = objWord.Documents.Open("\\d\file1.txt")
 
objDoc1.PrintOut
Работает вроде бы хорошо, но мои коллеги жалуются, что не могут отправить на другой принтер новое задание, пока предыдущее полностью не отпечатается (порядка 10 принтеров zebra в подчинении - печатают этикетки). Но ждать некогда, нарушается производительность....(((

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

Ну к примеру - в коде выше пишется переменная objDoc1 для файла, который отправится на печать на 1-ый принтер.
Пока печатается ObjDoc1, юзер может открыть следующий файл, присвоить ему ObjDoc2 и отправить на печать на другой принтер... И тп.
Подскажите пожалуйста, возможно ли такое? Может кто сталкивался с таким? Если возможно, как правильно прописать такое в коде?
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2019, 20:25
Ответы с готовыми решениями:

Как сделать печать определенных бланков под разные принтеры
Значит имеется следующее, есть 2 принтера, битрикс с которого идут заказы, собственно бланки заказа...

Печать страниц из PDF на разные принтеры в зависимости от размера и цветности
Доброго времени суток уважаемые форумчане. Объясню вкратце суть проблемы. Имеется .pdf файл (...

Одновременная маршрутизация через разные каналы
микротик 1 - офис 192.168.11.0/24 один WAN (белый IP статика) - я сижу в офисе микротик 2 - склад...

Принтеры печать
Кто нить сталкивался с такой проблемой когда Работаешь внешней обработкой и выводишь на печать...

3
Эксперт MS Access
26759 / 14438 / 3192
Регистрация: 28.04.2012
Сообщений: 15,782
16.11.2019, 11:05 2
Проверить не на чем, поэтому как предположение. Возможны ошибки в коде.

Попробуйте открывать шеллом, а потом гетобджект. Тогда вроде получаются параллельные процессы и можно назначать независимые принтеры. Типа такого
Visual Basic
1
2
3
4
5
6
7
8
9
Dim objWord As Object, objDoc98 As Object
     
    Set FSO = CreateObject("Scripting.FileSystemObject")
    shell "word.exe \\d\file1.txt" 
    Set objDoc1 = getObject(, "Word.Application")
 
'    Set objDoc1 = objWord.Documents.Open("\\d\file1.txt")
 
objDoc1.PrintOut
1
8 / 7 / 0
Регистрация: 27.09.2015
Сообщений: 836
16.11.2019, 11:55  [ТС] 3
Цитата Сообщение от mobile Посмотреть сообщение
Тогда вроде получаются параллельные процессы
Здравствуйте. Спасибо, я попробую))

Тоже не на чем попробовать, только если переделать файл коллегам и дать на испытания)
0
8 / 7 / 0
Регистрация: 27.09.2015
Сообщений: 836
17.11.2019, 17:10  [ТС] 4
Все таки наверно лучше попробовать с циклом для присваивания переменных для открываемых файлов.

Подумал, что после печати необходимо будет обязательно закрывать файлы кодом, чтобы не плодить кучу открытых файлов...
Вот насчет shell не в курсе, поможет ли он мне в такой ситуации? Никогда не пользовался...
Как например мне закрывать кодом объект, если у него наименование всегда одно и то же??... Да на печать отправлять один и тот же объект...
Там же пока печатается один документ на одном принтере, можно отправить на печать другой документ на соседний принтер))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.11.2019, 17:10
Помогаю со студенческими работами здесь

Печать на перенаправленные принтеры
Всех приветствую. Неделю как возникла проблема - отваливаются принтера из терминального сервера Win...

Принтеры не выводят на печать
Здравствуйте. Недавно столкнулись с проблемой на принтерах. На компьютере ОС Win7 32 pro. При...

Класс TPrinter, печать на принтеры HP
Добрый вечер Печатаю страницу текста классом TPrinter. Проблемма в следующем : При отправке на...

Кнопка печать на форме Печать документов
в 1С v8.2 Управление производственным предприятием на форму "Печать документов" добавил кнопку...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru