Print Drawing as High Quality (VB.NET)

This example shows how to print the active drawing document 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.
'----------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System

Partial Class SolidWorksMacro

    Public Sub main()

        Dim swModel As ModelDoc2
        Dim swModelDocExt As ModelDocExtension
        Dim swPageSetup As PageSetup
        Dim drawing As String
        Dim errors As Integer
        Dim warnings As Integer


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

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

        ' Print all pages

                ' Arrays derive from Object; in this example, IModelDocExtension::PrintOut3 method's
        ' sheets input parameter is an array of integers that is declared as follows
        Dim sheets(0) As Integer
        sheets(0) = 0

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

    End Sub

    ''' <summary>
    ''' The SldWorks swApp variable is pre-assigned for you.
    ''' </summary>
    Public swApp As SldWorks


End Class