Задание разных принтеров для печати одного документа

[Bagema]

Проблема в следующем: один файл содержит несколько форматов (А3, А4), следовательно по старорусски, один формат отправляли на один принтер, другой - на другой.. При этом, все ручками, и ОООЧ долго.. Можно ли сделать так, чтобы после отправки документа на печать, разные его листы направлялить на разне принтеры в зависимости от формата?

[viter.alex]

Если форматы разные, значит применяются разделы. Вот и отправлять на печать разделами. Как-то так. Код с коленки:

Sub Макрос1()
  Dim oSec As Section
  For Each oSec In ActiveDocument.Sections
    If oSec.PageSetup.PaperSize = wdPaperA4 Then
      ActivePrinter = "Имя принтера A4"
    ElseIf oSec.PageSetup.PaperSize = wdPaperA3 Then
      ActivePrinter = "Имя принтера A3"
    End If
    Application.PrintOut Background:=False, Pages:="s" & oSec.Index, Range:=WdPrintOutRange.wdPrintRangeOfPages
  Next
End Sub

[Baralgin]

Все супер. Только слова благодарности.

А можно как-то объединить задачи - эту и печать цветных-ч/б?
Печать на три принтера
- 1- цветные А4
- 2 - ч/б А4
- 3 - А3