Я целый день над этим бьюсь вроде ничего сложного ,а не выходит

Сall method of application 'ActiveSheet' = ActiveSheet.
call method of ActiveSheet 'PageSetup' = PageSetup.
set property of PageSetup 'Orientation' = 'xlLandscape'.

Ну не хочет зараза работать и все тут.Помогите пожалуйста.Горю.

xlLandscape - это константа, значение 2 (не строка). Кроме того, судя по списку объектов, ActiveSheet и PageSetup - это свойства, а не методы.

Run Excel -> Alt + F11 -> F2 -> Application - дальше все должно быть ясно. В едит-боксе можешь написать xlLandscape - покажет к чему относится, и какие могут быть еще свойства.

REPORT ZTEST .

INCLUDE OLE2INCL.
DATA: SSS(20).

START-OF-SELECTION.
PERFORM EXC.
*&--------------------------------------------------------------------*
*& Form EXC
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM EXC.
DATA: H_EXCEL TYPE OLE2_OBJECT,
H_MAPL TYPE OLE2_OBJECT,
H_SHEET TYPE OLE2_OBJECT,
H_ZL TYPE OLE2_OBJECT,
H_F TYPE OLE2_OBJECT,
H_P TYPE OLE2_OBJECT.

CREATE OBJECT H_EXCEL 'EXCEL.APPLICATION'.
SET PROPERTY OF H_EXCEL 'Visible' = 0.
CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
CALL METHOD OF H_MAPL 'Add'.
CALL METHOD OF H_EXCEL 'Worksheets' = H_SHEET
EXPORTING
#1 = 'Лист1'.
CALL METHOD OF H_SHEET 'Activate'.
CALL METHOD OF H_EXCEL 'ActiveSheet' = H_F.
CALL METHOD OF H_F 'PageSetup' = H_P.
SET PROPERTY OF H_P 'Orientation' = 2.
SET PROPERTY OF H_EXCEL 'Visible' = 1.
CALL METHOD OF H_SHEET 'RANGE' = H_ZL
EXPORTING
#1 = 'A1'.
SET PROPERTY OF H_ZL 'Value' = 'Пример'.
CALL METHOD OF H_F 'PrintPreview'.
SET PROPERTY OF H_EXCEL 'Visible' = 1.

FREE OBJECT H_EXCEL.
FREE OBJECT H_ZL.
FREE OBJECT H_F.
FREE OBJECT H_MAPL.
FREE OBJECT H_SHEET.

ENDFORM. "VEXCEL

Пора отдельный форум заводить по программированию в Excel с примерами на ABAP
Я бы такие вещи писал на VBA добивался работоспособности, а уже потом переводил на ABAP.