Question

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 集合中的区域。