Convert external documents to PDF and print

Question

Hi,
I have a SAP script and with some help from SDN I am at point where I can convert this SAP script to PDF using the function module below
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
FORMAT = 'PDF'
* MAX_LINEWIDTH = 132
* ARCHIVE_INDEX = ' '
* COPYNUMBER = 0
* ASCII_BIDI_VIS2LOG = ' '
* PDF_DELETE_OTFTAB = ' '
IMPORTING
BIN_FILESIZE = BINFILESIZE
* BIN_FILE =
TABLES
otf = DATAB[]
lines = PDFTAB[].
Now my requirement is, let's say I have an external doc(word or excel) residing on my PC. I have complete path of this file in my hand. I want to convert this file to PDF and append it to the above PDFTAB[] and print to the printer 'TDDEST' as a single document.
Thanks,

Answer 1

Hi,
use this code passing in v_url the complete path
START-OF-SELECTION.
  SET SCREEN 100.
*&      Module  STATUS_0100  OUTPUT
      text
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'STATUS'.
  SET TITLEBAR 'T1'.
*running down the pbo for the first time,
*create the controls and their containers
  IF my_main_container IS INITIAL.
    CREATE OBJECT my_main_container
    EXPORTING
    container_name = 'CUSTOM_CNTL'
    EXCEPTIONS
    cntl_error = 1
    OTHERS = 2.
*create PDF Viewer object
    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.
*my_pdf_viewer->LANGU = 'IT'.
    DATA: view_buttons_active TYPE char01 VALUE 'X',
    v_url TYPE char255.
    IF my_pdf_viewer->acrobat_vs_reader = ''.
      view_buttons_active = 'X'.
    ENDIF.
*create SAP toolbar for PDF Viewer
    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.
*Open the PDF document
   IF NOT my_pdf_viewer->html_viewer IS INITIAL.
    CLEAR v_url.
    v_url = file.
    CALL METHOD my_pdf_viewer->open_document
      EXPORTING
        url = v_url.
    IF sy-subrc <> 0.
      SET SCREEN 1000.
      MESSAGE i208(00) WITH 'Documento non presente: riprovare'.
    ENDIF.
   ELSE.
    MESSAGE e208(00) WITH 'Impossibile aprire il documento'.
   ENDIF.
  ENDIF.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  EXIT-PROCESSING  INPUT
      text
MODULE exit-processing INPUT.
  fcode = ok_code.
  CLEAR ok_code.
  CASE fcode.
    WHEN 'BACK' OR 'EXIT' OR 'CANC'.
      SET SCREEN 0.
      LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                 " EXIT-PROCESSING  INPUT