How to convert PO sapscript layout to pdf - need VERY URGENT Help

Question

Dear All,
Requirement: PO sapscript layout after some modifications (say, ZMEDRUCK) has to be converted to pdf. Through me9f user will be able to give ranges of PO numbers and can view the print preview for the po. After that on clicking the print button we get the printout of the pos one after another based on the user input of PO numbers.
Our requirement is that when the user will click on the "Print Preview" of po (rather than pressing the print button) it i.e. PO sapscript layout has to get converted to pdf.
If you have already encountered this scenario, could you please send me the source code regarding this at the earliest. If you want to email it to my personal id, please let me know so that I can give it to you. Thank you.
It will be very beneficial for mine if you can send me some source code in this regard. (FYI. We want only “Print output” of PO sapscript. So, Print Program /SMB40/FM06P [after copying it to our ZSMB40/FM06P program] need to be modified for downloading the PO into PDF where there is no FMs like OPEN_FORM, WRITE_FORM, CLOSE_FORM. So already available source code in SAP forums can not help me.)). Kindly help me at the earliest. It’s VERY URGENT…
Thank you.
Thanks & Regards
Sudipta

Answer 1

Hi Chaith,
Could you please provide me the source code regarding this at the earliest.
We want only “Print output” of PO sapscript. So we need to modify only the Print Program SAPFM06P after copying it to ZSAPFM06P for downloading of modified PO (ZMEDRUCK) sapscript layout into PDF.
I am already having some source code from sdn portral. I am attaching it herewith. But it's not working as some constants and variable values need to be given. We want to take download of PO into PDF from ME9F transaction itself.
Could you please provide necessary values in the missing constants and variables and kindly resend the corrected modified Source code to me so that I can run the same code to  download the modified PO ZMEDRUCK into PDF . Need YOUR URGENT HELP...
DATA: l_druvo LIKE t166k-druvo,
        l_nast  LIKE nast,
        aux_nast LIKE nast,
        l_from_memory,
        l_doc   TYPE meein_purchase_doc_print,
        ent_screen TYPE c,
        ent_retco TYPE i,
        toa_dara TYPE toa_dara,
        arc_params LIKE arc_params,
        aux_form LIKE tnapr-fonam.
  DATA: otf LIKE itcoo OCCURS 0 WITH HEADER LINE,
        lt_docs      TYPE TABLE OF docs,
        pdf_bytecount TYPE i,
        nom_archivo TYPE string.
  aux_form = 'ZMEDRUCK'.
  l_from_memory = c_true.
  SELECT *
    FROM nast
    INTO aux_nast
    UP TO 1 ROWS
    WHERE kappl = c_po     " Purchase Order
    AND   objky = t_datos-ebeln
    AND   aktiv = space
    ORDER BY erdat DESCENDING eruhr DESCENDING.
  ENDSELECT.
  aux_nast-sort1 = c_swp.
  CLEAR ent_screen.
  CLEAR ent_retco.
  IF aux_nast-aende EQ space.
    l_druvo = c_1.
  ELSE.
    l_druvo = c_2.
  ENDIF.
l_druvo = '2'.
  CALL FUNCTION 'ME_READ_PO_FOR_PRINTING'
    EXPORTING
      ix_nast        = aux_nast
      ix_screen      = ent_screen
    IMPORTING
      ex_retco       = ent_retco
      ex_nast        = l_nast
      doc            = l_doc
    CHANGING
      cx_druvo       = l_druvo
      cx_from_memory = l_from_memory.
  CHECK ent_retco EQ 0.
  CALL FUNCTION 'ECP_PRINT_PO'
    EXPORTING
      ix_nast        = l_nast
      ix_druvo       = l_druvo
      doc            = l_doc
      ix_screen      = ent_screen
      ix_from_memory = l_from_memory
      ix_toa_dara    = toa_dara
      ix_arc_params  = arc_params
      ix_fonam       = aux_form                            
    IMPORTING
      ex_retco       = ent_retco.
  CLEAR otf.
  CALL FUNCTION 'READ_OTF_FROM_MEMORY'
    EXPORTING
      memory_key   = l_nast-objky  " PO Number
    TABLES
      otf          = otf
    EXCEPTIONS
      memory_empty = 1
      OTHERS       = 2.
  CALL FUNCTION 'CONVERT_OTF_2_PDF'
    IMPORTING
      bin_filesize           = pdf_bytecount
    TABLES
      otf                    = otf
      doctab_archive         = lt_docs
      lines                  = pdfout
    EXCEPTIONS
      err_conv_not_possible  = 1
      err_otf_mc_noendmarker = 2
      OTHERS                 = 3.
  CONCATENATE c_dest t_datos-ebeln c_ext INTO nom_archivo.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      bin_filesize = pdf_bytecount
      filename     = nom_archivo
      filetype     = c_bin
    IMPORTING
      filelength   = pdf_bytecount
    TABLES
      data_tab     = pdfout.