Private Sub tUseSheetScale()

    Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

         Set SwApp = Application.SldWorks

         Set SwModel = SwApp.ActiveDoc

    Dim SwSelMgr As SelectionMgr

         Set SwSelMgr = SwModel.SelectionManager

    Dim SwDraw As DrawingDoc

         Set SwDraw = SwModel

    Dim SwView As View

         Set SwView = SwDraw.GetFirstView

         ''

         Do While Not SwView Is Nothing

              SwView.useSheetScale = True

              SwView.UseParentScale = True

              Debug.Print SwView.UseParentScale

              Set SwView = SwView.GetNextView

         Loop

End Sub