Всем доброго времени суток!
Уже месяц бьюсь пальцами об "клаву" по этой же теме, и ничего не придумал лучше ниже следующего:Перед тем как выводить на печать в дуплексе из Екселя, необходимо создать два файла на диске "C:\", которые будут содержать все настройки принтера.
Первый будет содержать настройки принтера по умолчанию, а второй настройки для печати в дуплексе.
Первый файл "Default.dat" можно создать сразу нижеследующей строкой из любого командера или в CMD.EXE, если принять
во внимание что принтер и так настроен по умолчанию: "C:\Windows\System32\printui.exe /Ss /n "Имя принтера" /a "C:\Default.dat".
Имя принтера - принтер по умолчанию, например: HP LaserJet 2200 Series PCL 5.
Перед созданием второго - "Duplex.dat", сначала необходимо зайти в настройки принтера и включить дуплекс в двух закладках - "Общие" -> "Настройка..." и
"Дополнительно" -> "умолчания...".
Обе панели должны быть настроены одинаково, только в этом случае обеспечивается надежная печать в дуплексе.
Затем нижеследующей строкой в CMD.EXE сохраняется второй файл настроек принтера:
"C:\Windows\System32\printui.exe /Ss /n "Имя принтера" /a "C:\Duplex.dat".
Теперь можно написать макрос который будет вызывать программу, с помощью которой будут меняться настройки принтера на дуплекс, затем печать и возврат принтера
в исходное состояние.
Sub DuplexPrint()
Dim PrnName As String
' Чтобы не думать в дальнейшем какой принтер используется по умолчанию,
' получаем его имя в PrnName.
PrnName = Application.ActivePrinter
' Получается, к примеру, принтер по умолчанию: "HP LaserJet 2200 Series PCL 5 (LPT1:)".
' В названии принтера присутствуют лишние данные: " (LPT1:)", следующим действием вычисляем позицию последнего пробела и
' убираем паразитные " (LPT1:)" из названия принтера.
PrnName = Left(PrnName, InStrRev(PrnName, " ") - 1)
' Теперь запускаем исполняемую программу Windows rundll32 c библиотекой printui и заранее подготовленными
' параметрами принтера в файле "Duplex.dat" для печати в дуплексе.
Shell "rundll32 printui.dll,PrintUIEntry /Sr /n " & Chr(34) & PrnName & Chr(34) & " /a " & Chr(34) & "C:\Duplex.dat" & Chr(34), vbNormalFocus
' Здесь как раз и пригодилось имя принтера по умолчанию т.к. данная прога автоматом его не определяет.
' Полный список команд этой проги можно посмотреть запустив "C:\Windows\System32\printui.exe".
' Чтобы настройки успели записаться в дрова принтера нужно сделать небольшую паузу перед дальнейшей
' печатью. Как правило 1 сек. достаточно.
Application.Wait (Now + TimeValue("0:00:01"))
' Далее идет печать листов с использованием дуплекса.
ActiveWorkbook.Sheets(Array("Лист1", _
"Лист2")).PrintOut copies:=1
' И наконец возвращаем первоначальные настройки принтера заранее подготовленым файлом "Default.dat".
Shell "rundll32 printui.dll,PrintUIEntry /Sr /n " & Chr(34) & PrnName & Chr(34) & " /a " & Chr(34) & "C:\Default.dat" & Chr(34), vbNormalFocus
' Кому нравится чтобы во время печати мелькали черные окна командной строки, может после функции Shell вместо
' "rundll32 printui.dll,PrintUIEntry ***"
' написать следующее:
' "CMD /c C:\Windows\System32\printui.exe ***"
End Sub
Выше приведенный макросовый изврат является дороботкой макроса написаного "Kuryachev"-ым (да, простит меня автор).
Отличие заключается в отсутствии необходимости писать в макросе конкретный принтер и подгонять параметры включения принтера в дуплекс
методом тыка, что для многих может стать "камнем предкновения".
Также можно подготовить файлы настроек принтера для любых других случаев печати из Екселя, например: режим брошюры.
Тем не мение, данный способ остается извратом, так как:
- меняет настройки самого драйвера принтера, а не Екселя
- необходимо держать на диске файлы настроек принтера
- для работоспособности макроса необходимо предварительно создать эти файлы настроек
- нельзя перенести макрос на другой комп и сразу работать (например: отправить по почте готовую таблицу пользователю
не объяснив как создать и куда положить файлы настроек)
- нельзя определить поддерживает ли вообще принтер дуплекс.
А, мелкософту за это ОГРОМНЫЙ -М-И-Н-У-С-. 
]]>
.
— нужно было трижды поворачивать листы. Было весьма весело, но всё-таки сделал и потом печатал.