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 sheets(0) As Long
        Dim drawing As String
        Dim errors As Long
        Dim warnings As Long

        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
        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

Search 'Print Drawing as High Quality (VB.NET)' in the SOLIDWORKS Knowledge Base.

Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required


*Email:
Subject:		Feedback on Help Topics
Page:		Print Drawing as High Quality (VB.NET)
*Comment:
*		I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Cancel

Print Topic

Select the scope of content to print:

This topic and all topics linked from this topic

Just this topic

This topic and only immediate topics under it

This selected topic and all subtopics

Cancel

We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

Never show this message again

Web Help Content Version: API Help (English only) 2011 SP05

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.