PrintRange 对象

PrintOptions PrintRanges (PrintRange)

代表要打印的连续幻灯片或页的范围。PrintRange 对象是 PrintRanges 集合的元素。PrintRanges 集合包含为指定演示文稿定义的所有打印区域。

使用 PrintRange 对象

使用 Ranges(index) 返回单个 PrintRange 对象，其中 index 是打印区域索引号。以下示例显示一条消息，指示当前演示文稿第一个打印区域的起始和终止幻灯片编号。

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

使用 Add 方法创建 PrintRange 对象，并添加到 PrintRanges 集合中。以下示例定义三个打印区域，分别代表当前演示文稿中第一张幻灯片，第三到第五张幻灯片，第八和第九张幻灯片；然后打印这些区域中的幻灯片。

With ActivePresentation.PrintOptions
    .RangeType = ppPrintSlideRange
    With .Ranges
        .ClearAll
        .Add 1, 1
        .Add 3, 5
        .Add 8, 9
    End With
End With
ActivePresentation.PrintOut

说明

可以在 PrintRanges 集合中设置独立于 RangeType 设置的打印区域。这些打印区域在包含它们的演示文稿加载时始终有效。RangeType 属性设为 ppPrintSlideRange 时，应用 PrintRanges 集合中的区域。