I want to use a macro for converting a Drawing file (.slddrw) to a PDF rather than using the process of File->SaveAs->.PDF
Following is the coding for the macro which obviously outputs the file as PDF with the name RWT-ANCIL107. How can I change it so it takes the name of the current drawing file.
Thanks for your help
Dim swApp As Object
Dim Part As ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As Long
Set swApp = _Application.SldWorks
Set Part = swApp.ActiveDocboolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.08896809136181, 0.2385039130435, 0, False, 0, Nothing, 0)Part.ClearSelection2 Truelongstatus = Part.SaveAs3("C:\Documents and Settings\rbankapur\Desktop\RWT-ANCIL107.PDF", 0, 0)End Sub
This forum is full of tons of macros on saving PDF.
Here are few of them:
Rebuild & saveas PDF
Save As PDF 1.22
SaveAsPDF with Folder Selection
Retrieving data ...