Javier López

Sw Drawing save as PDF in specific location Macro.

Discussion created by Javier López on Dec 5, 2019
Latest reply on Dec 9, 2019 by Deepak Gupta

Hi All, I am trying to save the pdf of the drawing through a Macro.

I am using the Macro below and It is working perfectly.

At the moment the pdf is saved in the same location as the drawing.

The question is, How can I save the pdf in a different location in PDM?

 

Thanks

 

Sub main()  Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swExportPDFData As SldWorks.ExportPdfData Dim strFilename As String Dim status As Boolean Dim errors As Long, warnings As Long  Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc  'Save status = swModel.Save3(swSaveAsOptions_e.swSaveAsOptions_Silent, errors, warnings)  'Export to PDF if it is a drawing If (swModel.GetType = swDocDRAWING) Then  strFilename = swModel.GetPathName strFilename = Left(strFilename, Len(strFilename) - 6) & "pdf" Set swExportPDFData = swApp.GetExportFileData(1) swModel.Extension.SaveAs strFilename, 0, 0, swExportPDFData, 0, 0  End If  End Sub

Outcomes