AnsweredAssumed Answered

PRINT TO PDF

Question asked by Coractive High-Tech on Aug 3, 2017
Latest reply on Aug 7, 2017 by David Matula

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

Outcomes