0 Replies Latest reply on Nov 23, 2014 10:18 PM by Milan Wendl

    Problem - Set 2015 Drawing Layers to Printable

    Milan Wendl

      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.