Auto-scale new drawing view

Hi,

Having trouble getting my macro to work when I attempt to get it to auto-scale a new drawing view with the following:

               Dim swDraw As SldWorks.DrawingDoc

               Dim DrawView As Object

               Set swDraw = swApp.NewDocument(sDrTempFileName, lDrSize, 0, 0)

               swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swAutomaticScaling3ViewDrawings, True

              

               Set DrawView = swDraw.CreateDrawViewFromModelView2(pname, "Current Model View", 0.3, 0.2, 0)

               boolstatus = swDraw.ActivateView("Drawing View1")

I'm trying to use a few "set user preference toggle" functions in regard to drawings, with limited success.

SolidworksApi macros