Добавление диапазонов в PrintOptions и определение его в переменной - PullRequest
1 голос
/ 26 апреля 2019

Я могу добавить один диапазон, но не могу добавить несколько диапазонов и определить его в переменной:

Set PR = ActivePresentation.PrintOptions.Ranges.Add(1, 1)

Можно ли добавить несколько диапазонов к указанному выше?

Я попробовал следующее, которое сработало, но я не смог установить его равным PR

With ActivePresentation
    With .PrintOptions
    .RangeType = ppPrintSlideRange
            With .Ranges
            .ClearAll
            .Add 1, 1
            .Add 3, 3
            End With
    End With
    .PrintOut
End With

Можно ли определить вышеуказанный диапазон по переменной?

Спасибо.

...