5 Replies Latest reply on Oct 28, 2015 2:11 AM by Solidworks Selim

    a3 print

    Solidworks Selim

      how to do

       

       

       

       

      Dim swApp As Object

       

       

      Dim Part As Object

      Dim boolstatus As Boolean

      Dim longstatus As Long, longwarnings As Long

       

       

      Sub main()

       

       

      Set swApp = _

      Application.SldWorks

       

       

      Set Part = swApp.ActiveDoc

      Dim myPageSetup As Object

      Set myPageSetup = Part.Extension.AppPageSetup

      myPageSetup.Orientation = swPageSetupOrientation_e.swPageSetupOrient_Landscape

      Part.PrintDirect

      End Sub