AnsweredAssumed Answered

Problem - Set 2015 Drawing Layers to Printable

Question asked by Milan Wendl on Nov 23, 2014

I need to set 2015 NEW layer property to printable to my rules but the following routine simply does not work in VBA:

    Set ModelDoc2 = swApp.ActiveDoc

    Set swLayerMgr = ModelDoc2.GetLayerManager

    vLayerArr = swLayerMgr.GetLayerList

 

    For Each vLayer In vLayerArr

            Set SWLayer = swLayerMgr.GetLayer(vLayer)

            SWLayer.Visible = True

      Next

      Call ModelDoc2.Save3(swSaveAsOptions_Silent, lngMyError, lngMyWarning)

     

     For Each vLayer In vLayerArr    'put

            Set SWLayer = swLayerMgr.GetLayer(vLayer)

            SWLayer.Printable = True

      Next

      Call ModelDoc2.Save3(swSaveAsOptions_Silent, lngMyError, lngMyWarning)

 

Thanks.

Outcomes