PaperSpace Example [ActiveX and VBA Reference: AAR]

PaperSpace Example

Sub Example_PaperSpace()
    ' This example sets the variable pspace to the paperspace entity collection.
    
    Dim pspace As AcadPaperSpace
    Set pspace = ThisDrawing.PaperSpace
    
End Sub