Converting to PDF in landscape format

Question

Hello Friends ,
I am doing an ALV grid report which needs to be sent to users Lotus Notes Inbox. I was successful in converting the report to PDF format and sending it to the inbox.
The problem is that report has 15 columns . All these 15 columns are displayed in the PDF format but they are minimized . I need to zoom 200% to see all the columns .
Is there a way it can be printed in Landscape format ??
Any suggestions ?
Here are the function modules i have used .
CONVERT_ABAPSPOOLJOB_2_PDF
Z_CONVERT_PDF_TO_MAIL_ATTACH.
Please let me know .
Thanks

Answer 1

Hi,
Check this code , we can re-format the data after getting data from FM : CONVERT_OTFSPOOLJOB_2_PDF
*& Report  Y_SPOOL_TO_PDF                                             *
REPORT  y_spool_to_pdf                         .
      CLASS lcl_pdf_demo_event_receiver DEFINITION
CLASS lcl_pdf_demo_event_receiver DEFINITION.
  PUBLIC SECTION.
    DATA:
      entry_field1(100) TYPE c,
      entry_field2(100) TYPE c.
    METHODS:
      on_document_saved
        FOR EVENT document_saved OF cl_gui_pdfviewer
          IMPORTING file_path,
      on_viewing_finished
        FOR EVENT document_closing OF cl_gui_pdfviewer.
ENDCLASS.                    "lcl_pdf_demo_event_receiver DEFINITION
      CLASS lcl_pdf_demo_event_receiver IMPLEMENTATION
CLASS lcl_pdf_demo_event_receiver IMPLEMENTATION.
  METHOD on_document_saved.
    entry_field1 = 'Document Saved'.
    entry_field2 = file_path.
    CALL METHOD cl_gui_cfw=>set_new_ok_code
      EXPORTING
        new_code = 'EVENT'.
  ENDMETHOD.                    "on_document_saved
  METHOD on_viewing_finished.
    entry_field1 = 'Viewing Finished'.
    entry_field2 = space.
    CALL METHOD cl_gui_cfw=>set_new_ok_code
      EXPORTING
        new_code = 'EVENT'.
  ENDMETHOD.                    "on_viewing_finished
ENDCLASS.                    "lcl_pdf_demo_event_receiver IMPLEMENTATION
DATA : l_lines       TYPE i,
         l_temp(500)   TYPE c,
         l_offset      TYPE p,
         l_lineslen(2) TYPE p,
         l_mimelen(2)  TYPE p,
         l_tabix       LIKE sy-tabix,
         l_bytecount  TYPE i,
         l_size TYPE i.
DATA: it_pdf       LIKE tline OCCURS 10 WITH HEADER LINE,
      xi_pdf       LIKE tline OCCURS 0 WITH HEADER LINE,
      html         LIKE solisti1   OCCURS 0  WITH HEADER LINE,
      xi_temp      LIKE bapiqcmime OCCURS 0 WITH HEADER LINE,
      xi_mime(255) TYPE c OCCURS 0 WITH HEADER LINE,
       lt_doc  TYPE TABLE OF docs.
DATA : url TYPE char255.
DATA: my_pdf_viewer     TYPE REF TO cl_gui_pdfviewer,
       my_main_container TYPE REF TO cl_gui_custom_container,
       entry1(100) TYPE c,
       entry2(100) TYPE c.
DATA: okcode TYPE sy-ucomm.
DATA: l_event_receiver TYPE REF TO lcl_pdf_demo_event_receiver.
PARAMETERS: p_file LIKE rlgrap-filename DEFAULT 'C:\temp\file.pdf'."#EC NOTEXT
PARAMETERS : p_spool LIKE tsp01-rqident OBLIGATORY.
START-OF-SELECTION.
*-Convert OTF Spool to PDF
if x_temp = ''.
  CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
    EXPORTING
      src_spoolid              = p_spool
      no_dialog                = ' '
    IMPORTING
      pdf_bytecount            = l_bytecount
    TABLES
      pdf                      = it_pdf
    EXCEPTIONS
      err_no_otf_spooljob      = 1
      err_no_spooljob          = 2
      err_no_permission        = 3
      err_conv_not_possible    = 4
      err_bad_dstdevice        = 5
      user_cancelled           = 6
      err_spoolerror           = 7
      err_temseerror           = 8
      err_btcjob_open_failed   = 9
      err_btcjob_submit_failed = 10
      err_btcjob_close_failed  = 11.
  IF sy-subrc = 0.
    xi_pdf[] = it_pdf[].
  ELSE.
    xi_pdf[] = it_pdf[].
  ENDIF.
else.
   CALL FUNCTION 'CONVERT_OTF_2_PDF'
     IMPORTING
       bin_filesize           = l_size
     TABLES
       OTF                    = it_otf
       DOCTAB_ARCHIVE         = lt_doc
       LINES                  = it_pdf
     EXCEPTIONS
       ERR_CONV_NOT_POSSIBLE  = 1
       ERR_OTF_MC_NOENDMARKER = 2
       OTHERS                 = 3.
   IF SY-SUBRC <> 0.
     v_retcode = 1.
     perform protocol_update. exit.
   else.
     xi_pdf[] = it_pdf[].
   endif.
endif.
-Reformat the line to 255 characters wide (code from SAP)
  CLEAR: l_temp, l_offset, xi_temp.
  DESCRIBE TABLE xi_pdf   LINES  l_lines.
  DESCRIBE FIELD xi_pdf   LENGTH l_lineslen IN CHARACTER MODE.
  DESCRIBE FIELD xi_temp  LENGTH l_mimelen IN CHARACTER MODE.
<b>  LOOP AT xi_pdf.
    l_tabix = sy-tabix.
    MOVE xi_pdf TO l_temp+l_offset.
    IF l_tabix = l_lines.
      l_lineslen = STRLEN( xi_pdf ).
    ENDIF.
    l_offset = l_offset + l_lineslen.
    IF l_offset GE l_mimelen.
      CLEAR xi_temp.
      xi_temp = l_temp(l_mimelen).
      APPEND xi_temp.
      SHIFT l_temp BY l_mimelen PLACES.
      l_offset = l_offset - l_mimelen.
    ENDIF.
    IF l_tabix = l_lines.
      IF l_offset GT 0.
        CLEAR xi_temp.
        xi_temp = l_temp(l_offset).
        APPEND xi_temp.
      ENDIF.
    ENDIF.
  ENDLOOP.</b>
  LOOP AT xi_temp.
    xi_mime(255) = xi_temp-line.
    APPEND xi_mime.
  ENDLOOP.
-Final Data
  html[] = xi_mime[].
  DATA : cancel.
  PERFORM download_w_ext(rstxpdft) TABLES html[]
                                   USING p_file
                                         '.pdf'
                                         'BIN'
                                         l_bytecount
                                         cancel.
  CALL SCREEN 100.
*-Save spool in application server as pdf file
open dataset p_file for output.
if sy-subrc = 0.
   loop at html.
     transfer html to p_file.
     if sy-subrc <> 0.
       v_retcode = 1.
       perform protocol_update.
     endif.
   endloop.
   close dataset p_file.
   if sy-subrc <> 0.
     v_retcode = 1.
     perform protocol_update.
   endif.
   it_command_files = p_file.
   append it_command_files.
   clear it_command_files.
else.
   v_retcode = 1.
   perform protocol_update.
endif.
*&      Module  STATUS_0100  OUTPUT
      text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
  IF my_main_container IS INITIAL.
    CREATE OBJECT my_main_container
      EXPORTING
        container_name = 'CUSTOM_CNTL'
      EXCEPTIONS
        cntl_error     = 1
        OTHERS         = 2.
    IF sy-subrc <> 0.
      EXIT.
    ELSE.
      CREATE OBJECT my_pdf_viewer
        EXPORTING
          parent              = my_main_container
        EXCEPTIONS
          cntl_error          = 1
          cntl_system_error   = 2
          OTHERS              = 3.
      IF sy-subrc <> 0.
        "could not create PDF Viewer
      ENDIF.
    ENDIF.
    DATA: view_buttons_active TYPE char01.
    IF my_pdf_viewer->acrobat_vs_reader = ''.
      view_buttons_active = 'X'.
    ENDIF.
   CALL METHOD my_pdf_viewer->create_toolbar
     EXPORTING
       tool_buttons      = 'X'
       view_buttons      = view_buttons_active
     EXCEPTIONS
       cntl_error        = 1
       cntl_system_error = 2
       OTHERS            = 3.
   IF sy-subrc <> 0.
     "could not create toolbar
   ENDIF.
    CREATE OBJECT l_event_receiver.
    SET HANDLER l_event_receiver->on_document_saved FOR my_pdf_viewer.
    SET HANDLER l_event_receiver->on_viewing_finished FOR my_pdf_viewer.
   IF NOT my_pdf_viewer->html_viewer IS INITIAL.
      url = p_file.
      CALL METHOD my_pdf_viewer->open_document
        EXPORTING
          url = url.
   ENDIF.
  ENDIF.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
      text
MODULE user_command_0100 INPUT.
  LEAVE TO SCREEN 0.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
Regards
Appana