From e97169a0c382cd22f82012e2e71796a7910ae26b Mon Sep 17 00:00:00 2001 From: sandraros <34005250+sandraros@users.noreply.github.com> Date: Wed, 23 Feb 2022 23:00:24 +0100 Subject: [PATCH] Reader: custom paper height and width (#984) Fix #396 Co-authored-by: sandraros Co-authored-by: Abo --- src/zcl_excel_reader_2007.clas.abap | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/zcl_excel_reader_2007.clas.abap b/src/zcl_excel_reader_2007.clas.abap index eac6192..df7f72b 100644 --- a/src/zcl_excel_reader_2007.clas.abap +++ b/src/zcl_excel_reader_2007.clas.abap @@ -2259,6 +2259,8 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION. fittoheight TYPE string, fittowidth TYPE string, papersize TYPE string, + paperwidth TYPE string, + paperheight TYPE string, END OF lty_page_setup. TYPES: BEGIN OF lty_sheetformatpr, @@ -2823,6 +2825,8 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION. io_worksheet->sheet_setup->orientation = ls_pagesetup-orientation. io_worksheet->sheet_setup->scale = ls_pagesetup-scale. io_worksheet->sheet_setup->paper_size = ls_pagesetup-papersize. + io_worksheet->sheet_setup->paper_height = ls_pagesetup-paperheight. + io_worksheet->sheet_setup->paper_width = ls_pagesetup-paperwidth. IF io_worksheet->sheet_setup->fit_to_page = 'X'. IF ls_pagesetup-fittowidth IS NOT INITIAL. io_worksheet->sheet_setup->fit_to_width = ls_pagesetup-fittowidth.