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