Автор: RomanNik
Дата сообщения: 25.11.2003 18:42
Интересная задача. Однако надо уточнить - печать из виндов или dos? В виндах наверно можно изготовить "макруху" которая будет поочередно пытаться распечатать через явно указанный в ней принтер(ы). Нужно только прежде его(их) установить. Привязка к LPT1 в этом случае необязательна, другое дело DOS.
expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)
Вот действующие строки:
Private Sub Button1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="\\operated_1\mb"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="\\operated_1\hp
End Sub
Уверен, можно использовать переменную среды и задействовать все установленные принтеры автоматически.
* пример реален для Winword и Excel
При реализации этой задачи для печати из под DOS, думаю понадобится резедентная программа перехвата задач печати для поочередной подстановки принтеров к LPT1. Иначе ни как. Однако думаю сделать можно. Дерзайте!