PaperSpace property example

Sub PaperSpace_Example()
' This example sets the variable pspace to the paper space object collection.
    Dim pspace As AcadPaperSpace
    Set pspace = ThisDrawing.PaperSpace
End Sub