mirror of
https://github.com/abap2xlsx/abap2xlsx.git
synced 2025-05-05 05:46:35 +08:00
e7865e58cb
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@378 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
93 lines
3.3 KiB
XML
93 lines
3.3 KiB
XML
<?xml version="1.0" encoding="utf-8"?>
|
|
<PROG NAME="ZDEMO_EXCEL40" VARCL="X" SUBC="1" RSTAT="T" RMAND="100" RLOAD="E" FIXPT="X" UCCHECK="X">
|
|
<textPool>
|
|
<language SPRAS="E">
|
|
<textElement ID="R" ENTRY="Print settings" LENGTH="20 "/>
|
|
<textElement ID="S" KEY="S_ICON" ENTRY="D ." LENGTH="9 "/>
|
|
</language>
|
|
</textPool>
|
|
<source>REPORT.
|
|
|
|
|
|
DATA: lo_excel TYPE REF TO zcl_excel,
|
|
lo_worksheet TYPE REF TO zcl_excel_worksheet.
|
|
|
|
DATA: lv_row TYPE zexcel_cell_row,
|
|
lv_col TYPE i,
|
|
lv_row_char TYPE char10,
|
|
lv_value TYPE string,
|
|
ls_fontcolor TYPE zexcel_style_color_argb.
|
|
|
|
CONSTANTS: gc_save_file_name TYPE string VALUE '40_Printsettings.xlsx'.
|
|
INCLUDE zdemo_excel_outputopt_incl.
|
|
|
|
|
|
|
|
START-OF-SELECTION.
|
|
" Creates active sheet
|
|
CREATE OBJECT lo_excel.
|
|
|
|
" Get active sheet
|
|
lo_worksheet = lo_excel->get_active_worksheet( ).
|
|
lo_worksheet->set_title( ip_title = 'Demo Printsettings' ).
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Prepare sheet with trivial data
|
|
* - first 4 columns will have fontocolor set
|
|
* - first 3 rows will have fontcolor set
|
|
* These marked cells will be used for repeatable rows/columns on printpages
|
|
*--------------------------------------------------------------------*
|
|
DO 100 TIMES. " Rows
|
|
|
|
lv_row = sy-index .
|
|
WRITE lv_row TO lv_row_char.
|
|
|
|
DO 20 TIMES.
|
|
|
|
lv_col = sy-index - 1.
|
|
CONCATENATE sy-abcde+lv_col(1) lv_row_char INTO lv_value.
|
|
lv_col = sy-index.
|
|
lo_worksheet->set_cell( ip_row = lv_row
|
|
ip_column = lv_col
|
|
ip_value = lv_value ).
|
|
|
|
TRY.
|
|
IF lv_row <= 3.
|
|
lo_worksheet->change_cell_style( ip_column = lv_col
|
|
ip_row = lv_row
|
|
ip_fill_filltype = zcl_excel_style_fill=>c_fill_solid
|
|
ip_fill_fgcolor_rgb = zcl_excel_style_color=>c_yellow ).
|
|
ENDIF.
|
|
IF lv_col <= 4.
|
|
lo_worksheet->change_cell_style( ip_column = lv_col
|
|
ip_row = lv_row
|
|
ip_font_color_rgb = zcl_excel_style_color=>c_red ).
|
|
ENDIF.
|
|
CATCH zcx_excel .
|
|
ENDTRY.
|
|
|
|
ENDDO.
|
|
|
|
|
|
|
|
ENDDO.
|
|
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Printsettings
|
|
*--------------------------------------------------------------------*
|
|
TRY.
|
|
lo_worksheet->zif_excel_sheet_printsettings~set_print_repeat_columns( iv_columns_from = 'A'
|
|
iv_columns_to = 'D' ).
|
|
lo_worksheet->zif_excel_sheet_printsettings~set_print_repeat_rows( iv_rows_from = 1
|
|
iv_rows_to = 3 ).
|
|
CATCH zcx_excel .
|
|
ENDTRY.
|
|
|
|
|
|
|
|
|
|
*** Create output
|
|
lcl_output=>output( lo_excel ).</source>
|
|
</PROG>
|