Save as PDF modification
Save as PDF modification
(OP)
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
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






RE: Save as PDF modification
http://sw.fcsuper.com/index.php
-Dustin
Professional Engineer
Pretty good with SolidWorks
RE: Save as PDF modification
This version , http://www.sloworks.fi/shop/product.php?id_product... is free, newer ones are cheap.
--
Hardie "Crashj" Johnson
SW 2011 SP 4.0
HP Pavillion Elite HPE
W7 Pro, Nvidia Quaddro FX580