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.