次の方法で共有


PrintRanges オブジェクト (PowerPoint)

指定したプレゼンテーションのすべての PrintRange オブジェクトのコレクションです。 各 PrintRange オブジェクトは、印刷する連続したスライドまたはページの範囲を表します。

PrintRanges コレクションを取得するには、Ranges プロパティを使用します。 次の使用例は、作業中のプレゼンテーションのコレクションからすべての既定義の印刷範囲をクリアします。

ActivePresentation.PrintOptions.Ranges.ClearAll

PrintRange オブジェクトを作成し、それを PrintRanges コレクションに追加するには、Add メソッドを使用します。 次の使用例は、作業中のプレゼンテーションのスライド 1、スライド 3 から 5、およびスライド 8 と 9 を表す 3 つの印刷範囲を定義し、これらの範囲のスライドを印刷します。

With ActivePresentation.PrintOptions

    .RangeType = ppPrintSlideRange

    With .Ranges

        .ClearAll

        .Add 1, 1

        .Add 3, 5

        .Add 8, 9

    End With

End With

ActivePresentation.PrintOut

単一の PrintRange オブジェクトを返すには、Range (index) を使用します。index は印刷範囲のインデックス番号です。 次の使用例は、作業中のプレゼンテーションの印刷範囲 1 のスライドの開始および終了番号を示すメッセージを表示します。

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

関連項目

PowerPoint Object Model Reference

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。