雪蝴蝶 发表于 2017-10-12 14:10:35

Presentations 集合与PrintOptions 对象

        一、Presentations 集合对象
  PowerPoint 中所有 Presentation 对象的集合。每个 Presentation 对象代表 PowerPoint 中当前打开的一个演示文稿。
  使用 Presentations 集合
  使用 Presentations 属性返回 Presentations 集合。使用 Add 方法创建一个新演示文稿并添加到集合中。以下示例创建一个新演示文稿,在其中添加一张幻灯片,然后保存该演示文稿。
  Set newPres = Presentations.Add(True)
  newPres.Slides.Add 1, 1
  newPres.SaveAs "Sample"
  使用 Presentations(index) 返回单个 Presentation 对象,其中 index 是幻灯片名称或索引号。以下示例打印第一个演示文稿。
  Presentations(1).PrintOut
  使用 Open 打开演示文稿并添加到 Presentations 集合中。以下示例以只读方式打开文件“Sales.ppt”。
  Presentations.Open FileName:="sales.ppt", ReadOnly:=True
  说明
  Presentations 集合不包含开放式加载宏,它是一种特殊类型的隐藏演示文稿。但是如果知道某单个开放式加载宏的文件名,就可以返回它。例如,Presentations(“oscar.ppa”) 将作为 Presentation 对象返回名为“Oscar.ppa”的开放式加载宏。但是,建议使用 AddIns 集合返回开放式加载宏。
  二、PrintOptions 对象
  包含演示文稿的打印选项。
  注意 指定 PrintOut 方法的可选参数 From、To、Copies 和 Collate 将设置 PrintOptions 对象的相应属性。
  使用 PrintOptions 对象
  使用 PrintOptions 属性返回 PrintOptions 对象。以下示例以非逐份方式打印当前演示文稿所有幻灯片(无论可见或隐藏)的两个彩色副本。该示例还调整每个幻灯片的大小以适应打印页,并给每个幻灯片加细边框。
 With ActivePresentation
With .PrintOptions
.NumberOfCopies = 2
.Collate = False
.PrintColorType = ppPrintColor
.PrintHiddenSlides = True
.FitToPage = True
.FrameSlides = True
.OutputType = ppPrintOutputSlides
End With
.PrintOut
 End With
  使用 RangeType 属性指定打印整个演示文稿或指定部分。如果只想打印特定幻灯片,请将 RangeType 属性设为 ppPrintSlideRange,并使用 Ranges 属性指定要打印的页。以下示例打印当前演示文稿中第一、四、五、六张幻灯片。
 With ActivePresentation
With .PrintOptions
.RangeType = ppPrintSlideRange
With .Ranges
.Add 1, 1
.Add 4, 6
End With
End With
.PrintOut
 End With

mingjic 发表于 2017-10-13 05:17:49

我来了~~~~~~~~~ 闪人~~~~~~~~~~~~~~~~

wygljgsc 发表于 2017-10-15 03:27:32

很不错啊
页: [1]
查看完整版本: Presentations 集合与PrintOptions 对象