大众计算机学习网欢迎诸位!收藏本站注 册登 陆
常用教程:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 教程 > 文章页

PrintRange对象、PrintRanges集合对象的用法与关联

Admin | 2013-7-11 8:06:27 | ReadNums | 1935 | 标签 PowerPoint教程 | 打印本页
     

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

  二、PrintRanges 集合对象

  指定演示文稿中所有 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


问题未解决:在线咨询我要在线咨询问题

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日