16 Replies Latest reply on Aug 7, 2017 2:33 PM by David Matula

    PRINT TO PDF

    Coractive High-Tech

      I am looking for a macro that prints to pdf files. I don't want to "save as pdf" since the file takes way more space and is a problem when sending multiple drawings by email.

      The path of the file is the same where the draft is and I want the revision to be included at the end of the file name ( _RevX) and if there is no revision then No "_Rev" at the end of the file name.

       

      The following only launches the printer as it was lastly used:

       

      Dim swApp As Object

       

       

      Dim Part As Object

      Dim boolstatus As Boolean

      Dim longstatus As Long, longwarnings As Long

       

       

      Sub main()

       

       

      Set swApp = _

      Application.SldWorks

       

       

      Set Part = swApp.ActiveDoc

      Part.PrintDirect

      Part.ViewZoomtofit2

      Part.ViewZoomtofit2

      End Sub

       

      I am using Solidworks 2014

       

      Thank You