Set myDoc = Application.ActiveDocumentWith myDoc .PageSetup.Orientation = wpsOrientLandscape .PrintOut .PageSetup.Orientation = wpsOrientPortraitEnd With