Excel Automation - печать всей книги

Question

Есть ли в библиотеке объектов Excel интерфейс для настройки параметров печати для печати всей книги вместо активного листа?

Answer 1

Нет, PageSetup применяется только к листам

Лучшее, что вы можете сделать - это макрос для копирования необходимых настроек

Sub CopyPageSetup()
    Dim sh As Worksheet, cl As Range
    Dim shBase As Worksheet

    Set shBase = ActiveSheet
    For Each sh In ActiveWindow.SelectedSheets
        If sh.Name <> shBase.Name Then
            sh.PageSetup.Orientation = shBase.PageSetup.Orientation
            ' Add other PageSetup properties here '
            ' unfortunately sh.PageSetup = shBase.PageSetup does not work '
        End If
    Next

End Sub