This script runs, the task exits, and the task manager says it executed successfully. But it doesn't save the open drawing as a pdf. It opens it, it does all the pomp and circumstance, but when it runs the Extension.SaveAs command nothing actually happens. I tried changing visibility from False to True, neither helps. Using ModelDoc2.SaveAs3 works but is antiquated and doesn't appear to be able to force silent saving (so the pdf's open after being saved). Any thoughts? Thanks!

<p>Option Explicit</p><p>Sub main()</p><p>Dim swApp           As SldWorks.SldWorks</p><p>Dim swModel         As SldWorks.ModelDoc2</p><p>Dim swCustPrpMgr    As SldWorks.CustomPropertyManager</p><p>Dim longstatus      As Long</p><p>Dim longwarnings    As Long</p><p>Dim sFileName       As String</p><p>Dim Path            As String</p><p>Dim FileName        As String</p><p>Dim Value           As String</p><p>Dim DwgRev          As String</p><p>Dim Success       As Object</p><p>Dim swExtension       As SldWorks.ModelDocExtension</p><p>Dim Errors             As Long</p><p>Dim Warnings           As Long</p><p>Dim vSheetName          As Variant</p><p>Dim swExportPDFData     As SldWorks.ExportPdfData</p><p></p><p>On Error Resume Next</p><p></p><p>Set swApp = Application.SldWorks</p><p>swApp.Visible = True</p><p></p><p>sFileName = "<Filepath>"</p><p></p><p>    Set swModel = swApp.OpenDoc6(sFileName, swDocDRAWING, swOpenDocOptions_Silent, "", longstatus, longwarnings)</p><p>    Set swModel = swApp.ActiveDoc</p><p>             </p><p>    swModel.ViewZoomtofit2</p><p>    </p><p>    DwgRev = swModel.GetCustomInfoValue("", "Revision")</p><p>    </p><p>    If DwgRev = "?" Or DwgRev = "" Or DwgRev = "-" Then</p><p>        DwgRev = "--"</p><p>    End If</p><p></p><p>    vSheetName = swModel.GetSheetNames</p><p>    Set swExportPDFData = swApp.GetExportFileData(1)</p><p></p><p>    FileName = Left(swModel.GetPathName, Len(swModel.GetPathName) - 7) & "_" & DwgRev & ".PDF"</p><p>    'swModel.SaveAs3 "" & FileName & "", 0, 0</p><p>    swExtension = swModel.Extensiona</p><p>    Success = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, vSheetName)</p><p>    swExportPDFData.ViewPdfAfterSaving = True</p><p>    'Success = swExtension.SaveAs(FileName, swSaveAsCurrentVersion, swSaveAsOptions_Silent, swExportPDFData, Errors, Warnings)</p><p>    Success = swExtension.SaveAs(FileName, 0, 0, swExportPDFData, Errors, Warnings)</p><p>    swApp.QuitDoc swModel.GetTitle</p><p>    Set swModel = Nothing</p><p></p><p>End Sub</p>