Print Drawing and Save as PDF (VBA)

This example shows how to print the active drawing document to your default printer and save it as a PDF file.

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

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim Model As ModelDoc2

Sub main()

Set swApp = CreateObject("SldWorks.Application")

Set Model = swApp.ActiveDoc

Debug.Print Model.printer

Dim ps As PageSetup

Set ps = Model.PageSetup

ps.Orientation = 2   ' 1=Portrait  '2 = Landscape

Dim pageArray(3) As Long

pageArray(0) = 1

pageArray(1) = 1

pageArray(2) = 3

pageArray(3) = 3

Dim vPageArray As Variant

vPageArray = pageArray

Dim copies As Long

copies = 1

Dim collate As Boolean

collate = True

' Print to default printer

Model.Extension.PrintOut2 vPageArray, copies, collate, "", ""

Dim e As Long

Dim w As Long

' Save to PDF

Debug.Print Model.SaveAs4("D:\samples\d1.pdf", 0, 0, e, w)

End Sub