Поделиться через


Объект PrintRanges (PowerPoint)

Коллекция всех объектов PrintRange в указанной презентации. Каждый объект PrintRange представляет диапазон последовательных слайдов или страниц для печати.

Пример

Используйте свойство Ranges, чтобы вернуть коллекцию PrintRanges . В следующем примере очищаются все ранее определенные диапазоны печати из коллекции для активной презентации.

ActivePresentation.PrintOptions.Ranges.ClearAll

Используйте метод Add, чтобы создать объект PrintRange и добавить его в коллекцию PrintRanges . В следующем примере определяются три диапазона печати, которые представляют слайд 1, слайды с 3 по 5 и слайды 8 и 9 в активной презентации, а затем выводит слайды в этих диапазонах.

With ActivePresentation.PrintOptions

    .RangeType = ppPrintSlideRange

    With .Ranges

        .ClearAll

        .Add 1, 1

        .Add 3, 5

        .Add 8, 9

    End With

End With

ActivePresentation.PrintOut

Используйте ranges (index), где index — это номер индекса диапазона печати, чтобы вернуть один объект PrintRange . В следующем примере отображается сообщение, указывающее начальный и конечный номера слайдов для диапазона печати в активной презентации.

With ActivePresentation.PrintOptions.Ranges
    If .Count > 0 Then
        With .Item(1)
            MsgBox "Print range 1 starts on slide " & .Start & _
                " and ends on slide " & .End
        End With
    End If
End With

См. также

Справочник по объектной модели PowerPoint

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.