Print Drawing as High Quality (VBA)

This example shows how to print the active drawing drawing as high quality.

'---------------------------------------------
' Preconditions:
' 1. Specified drawing document exists.
' 2. Specified printer exists.
'
' Postconditions: All of the sheets of the
' specified drawing document are printed to 
' the specified printer.
'----------------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swPageSetup As SldWorks.pageSetup
Dim sheets(0) As Long
Dim drawing As String
Dim errors As Long
Dim warnings As Long

Sub main()

Set swApp = Application.SldWorks

drawing = "C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\advdrawings\foodprocessor.slddrw"
Set swModel = swApp.OpenDoc6(drawing, swDocDRAWING, swOpenDocOptions_Silent, "", errors, warnings)

' Set up page
Set swPageSetup = swModel.pageSetup
swPageSetup.Orientation = 2   ' 1=Portrait  '2 = Landscape

' Print all pages
sheets(0) = 0

' Print all of the sheets to the specified printer and convert to high quality
Set swModelDocExt = swModel.Extension
swModelDocExt.PrintOut3 sheets, 1, False, "\\CORP-PRINTA\HPLJ4050N-R&D1", "", True
 

End Sub