Folge 9: Speichern ins PDF-Format

Option Explicit
Sub main()
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks
    
    Dim swModel As ModelDoc2
    Set swModel = swApp.ActiveDoc
    
    If swModel Is Nothing Then
        swApp.SendMsgToUser "Kein Dokument geladen."
        Exit Sub
    End If
    
    Dim Errors As Long
    Dim Warnings As Long
    Dim FullName As String
    Dim ReturnValue As Boolean
    
    FullName = swModel.GetPathName
    
    Dim laenge As Integer
    laenge = Len(FullName)
    
    Debug.Print "Fullname: " & FullName
    Debug.Print "Fullname Länge: " & laenge
    
    FullName = Left(FullName, laenge - 6) & "pdf"
    
    Debug.Print "Fullname: " & FullName
    
    Dim swExportPdfData As ExportPdfData
    Set swExportPdfData = swApp.GetExportFileData(swExportDataFileType_e.swExportPdfData)
    
    swExportPdfData.ViewPdfAfterSaving = False
    'ReturnValue = swExportPdfData.SetSheets(swExportDataSheetsToExport_e.swExportData_ExportCurrentSheet, "")
    
    Dim sheetNames(3) As String
    sheetNames(0) = "Blatt1"
    sheetNames(1) = "Blatt3"
    sheetNames(2) = "Blatt5"
    
    Dim varSheetNames As Variant
    varSheetNames = sheetNames
    
    ReturnValue = swExportPdfData.SetSheets(swExportDataSheetsToExport_e.swExportData_ExportSpecifiedSheets, varSheetNames)
    
    
    ReturnValue = swModel.Extension.SaveAs3(FullName, swSaveAsVersion_e.swSaveAsCurrentVersion, swSaveAsOptions_e.swSaveAsOptions_Silent, swExportPdfData, Nothing, Errors, Warnings)
        
    Debug.Print "Errors: " & Errors
    Debug.Print "Warnings: " & Warnings
    Debug.Print "Return Value: " & ReturnValue
    
End Sub