Skip to Content
0
Former Member
Feb 27, 2009 at 06:07 PM

How to set a page header and footer of an excel file i'm creating

335 Views

Hello !

SORRY MY ENGLISH is very BAD.

I tried to set page header and footer in Excel sheet with ABAP ole

......

DATA : BEGIN OF enter,

x(1) TYPE x VALUE '0D',

END OF enter.

DATA : format(255) TYPE c.

.....

FORM set_page_sheet.

CALL METHOD OF excel 'ActiveSheet' = sheet.

CALL METHOD OF sheet 'PageSetup' = pagesetup.

SET PROPERTY OF pagesetup 'Orientation' = xllandscape.

SET PROPERTY OF pagesetup 'PrintTitleRows' = '$9:$12'.

CLEAR format.

ERROR

CONCATENATE 'PAGESHEET' enter-x 'PAGE &P/&N' INTO format.

ERROR

SET PROPERTY OF pagesetup 'RightHeader' = format.

CLEAR format.

CONCATENATE ' Text 1 ' enter-x 'Text 2'

enter-x 'Text 3 ' INTO format.

SET PROPERTY OF pagesetup 'RightFooter' = format.

FREE OBJECT pagesetup.

ENDFORM. " set_page_sheet

Activate report -

ERROR - The enter-x must by data type c or another then data type x

Thanks for answer.