Question

PrintOptions PrintRanges (PrintRange)

指定演示文稿中所有PrintRange 对象的集合。每个PrintRange 对象代表要打印的连续幻灯片或页的范围。

使用 PrintRanges 集合

使用Ranges 属性返回PrintRanges 集合。以下示例从当前演示文稿的集合中清除所有以前定义的打印区域。

ActivePresentation.PrintOptions.Ranges.ClearAll

使用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

使用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