AnsweredAssumed Answered

a3 print

Question asked by Solidworks Selim on Oct 27, 2015
Latest reply on Oct 28, 2015 by 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

Outcomes