Save as PDF modification

[generalpatton]

Hello,
I used to have a macro for swx 2006 that did what I needed, but it is lost. I want to save "501-09-1336.PDF" that is listed below as the current file name that is open. What is below is just a recorded macro of that file saved as a pdf. Any suggestions? I have no code background, FYI! SWX 2012 X64 is current edition. thanks a bunch

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.ViewZoomtofit2
longstatus = Part.SaveAs3("C:\Users\ccc\Desktop\501-09-1336.PDF", 0, 0)
End Sub

 

[ShaggyPE]

Look for the SaveAs PDF 1.22 at the following link:

http://sw.fcsuper.com/index.php

-Dustin
Professional Engineer
Pretty good with SolidWorks

 

[SnowCrash]

Personally, I use SWupBB lite. It saves the pdf (and/or dxf and/or dxf) everytime you save the drawing file.
This version ,

http://www.sloworks.fi/shop/product.php?id_product=12

is free, newer ones are cheap.

--
Hardie "Crashj" Johnson
SW 2011 SP 4.0
HP Pavillion Elite HPE
W7 Pro, Nvidia Quaddro FX580