PRINT TO PDF

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

SolidworksApi macros