2 Replies Latest reply on Apr 13, 2017 11:47 AM by Peter Kennedy

    GetPrintSpecification causing Solidworks to Crash

    Peter Kennedy

      I have issues with the code below when I do the following steps, (Using Solidworks 2015 SP5):


      1. Open Drawing

      2. Run Macro

      3. Close Drawing

      4. Close Solidworks

      5. Solidworks Crashes


      However if I:


      1. Open Drawing

      2. Run Macro

      3. Close Solidworks

      4. Closes without Crashing


      With this code I'm just trying to get the total number of pages in the drawing. See Code Below:


      Option Explicit


      Dim swApp As SldWorks.SldWorks

      Dim swModel As SldWorks.ModelDoc2



      Dim swModelDocExt As SldWorks.ModelDocExtension

      Dim printSpec As SldWorks.PrintSpecification


      Dim TotalNumPages As Integer


      Sub main()

          'Setting the required programs and Documents

          Set swApp = Application.SldWorks

          Set swModel = swApp.ActiveDoc


          Set swModelDocExt = swModel.Extension


          'Set the printing specs

          Set printSpec = swModelDocExt.GetPrintSpecification


          'Get total number of sheets

          TotalNumPages = printSpec.SheetCount


          MsgBox (TotalNumPages)


      End Sub


      Message was edited by: Peter Kennedy - Isolated the issue even further.