Save File as PDF Example (VBA)

This example shows how to export the specified sheet in a drawing document to a PDF file.

 

'-----------------------------------------------------------------

' Preconditions: The specified drawing document exists.

'

'                NOTE: The drawing document is installed when

'                      you install SolidWorks.

'

' Postconditions: The specified sheet is exported to a PDF file.

'------------------------------------------------------------------

Option Explicit

 

    Dim swApp               As SldWorks.SldWorks

    Dim swModel             As SldWorks.ModelDoc2

    Dim swModelDocExt       As SldWorks.ModelDocExtension

    Dim swExportPDFData     As SldWorks.ExportPdfData

    Dim boolstatus          As Boolean

    Dim filename            As String

    Dim lErrors             As Long

    Dim lWarnings           As Long

    Dim strSheetName(4)     As String

    Dim varSheetName        As Variant

 

Sub main()

 

    ' Path to which to save PDF file of drawing

    filename = "C:\foodprocessor.PDF"

    

    Set swApp = Application.SldWorks

    swApp.Visible = True

 

    ' Open specified drawing

    Set swModel = swApp.OpenDoc6("c:\Program Files\SolidWorks\samples\tutorial\advdrawings\foodprocessor.slddrw", swDocDRAWING, swOpenDocOptions_Silent, "", lErrors, lWarnings)

    Set swModelDocExt = swModel.Extension

 

    Set swExportPDFData = swApp.GetExportFileData(1)

    

    ' Names of the sheets

    strSheetName(0) = "Sheet1"

    ' strSheetName(1) = "Sheet2"

    ' strSheetName(2) = "Sheet3"

    ' strSheetName(3) = "Sheet4"

 

    varSheetName = strSheetName

    

    If swExportPDFData Is Nothing Then MsgBox "Nothing"

    boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, varSheetName)

    

boolstatus = swModelDocExt.SaveAs(filename, 0, 0, swExportPDFData, lErrors, lWarnings)

 

End Sub