Smartform output to pdf and send through mail

Question

Hi,
I am able to save the output of the smartform as pdf file and able to send the pdf as attachment in mail.
But the problems are -
1 - As i have set the field - 'X' TO ls_control_param-getotf.
     I am unable to view the print preview of the billing document and no spool is getting displayed. I want to see the print preview and create a spool and also generate a pdf file.
2- I am using the FM SO_DOCUMENT_SEND_API1 to send the mail of the pdf file. But i am getting the message like
    "Cannot extract the embedded font 'FranklinGothalicITCBook'. Some charactersmay not display or print correctly" followed by "An error exists on this page. Acrobat may not display the page correctly".
Pls help me in resolving the issues.
Thanks,
Raju

Answer 1

Hi
I was worked on similar type of requirement. For your reference, please check the below piece of code which i have developed for my requirement.
FORM ENTRY USING RETCODE
                 US_SCREEN.
*Check if Nast key is initial or not
  IF NAST-OBJKY IS NOT INITIAL.
*if nast-objkey is not initial than we need to get the smartform name
*which is ZSF_PURCHASE_ORDER01
    CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
      EXPORTING
        FORMNAME           = C_FORM
      IMPORTING
        FM_NAME            = G_FNAME
      EXCEPTIONS
        NO_FORM            = 1
        NO_FUNCTION_MODULE = 2
        OTHERS             = 3.
*if sy-subrc ne 0 than we need to update the nast entry with error
    IF SY-SUBRC <> 0.
      RETCODE = 1.
      PERFORM NAST_PROTOCOL_UPDATE.
      EXIT.
    ENDIF.
*check if we need to take a print out
    CLEAR W_CTRLOP.
    IF SY-UCOMM = 'PREVOUTPUT'.
      NAST-NACHA = '1'.
    ENDIF.
OUTPUT TO PRINTER
    IF NAST-NACHA = C_1.                 " Output to Printer
      W_COMPOP-TDDEST     = NAST-LDEST.
      W_COMPOP-TDNEWID    = 'X'.
      W_COMPOP-TDIMMED    = 'X'.
      W_COMPOP-TDDELETE   = 'X'.
      W_COMPOP-TDLIFETIME = 1.
      W_COMPOP-TDFINAL    = 'X'.
     W_CTRLOP-NO_DIALOG  = 'X'.
      W_CTRLOP-DEVICE     = 'PRINTER'.
      W_CTRLOP-PREVIEW    = 'X'.
*Smartform is called and print program is done
      CALL FUNCTION G_FNAME
        EXPORTING
          CONTROL_PARAMETERS = W_CTRLOP
          OUTPUT_OPTIONS     = W_COMPOP
          USER_SETTINGS      = ' '
          WA_NAST            = NAST
        EXCEPTIONS
          FORMATTING_ERROR   = 1
          INTERNAL_ERROR     = 2
          SEND_ERROR         = 3
          USER_CANCELED      = 4
          OTHERS             = 5.
*if print program is successful we need to update the nast entry
      IF SY-SUBRC EQ 0.
        RETCODE = 0.
        IF US_SCREEN EQ 'X'.
          PERFORM NAST_PROTOCOL_UPDATE.
        ELSEIF SY-SUBRC NE 0.
*if print program is not successful than we need to update the nast
*entry
          RETCODE = 1.
          PERFORM NAST_PROTOCOL_UPDATE.
          EXIT.
        ENDIF.
      ENDIF.
OUTPUT TO MAIL
    ELSEIF NAST-NACHA = C_5.                " External Mail
We need to get the smartform into OTF file format
      W_CTRLOP-GETOTF     = 'X'.
      IF  NAST-TCODE = 'ZLE'.
        W_COMPOP-TDDEST = 'LOCL'.
      ENDIF.
      CALL FUNCTION G_FNAME
        EXPORTING
          CONTROL_PARAMETERS = W_CTRLOP
          OUTPUT_OPTIONS     = W_COMPOP
          USER_SETTINGS      = ' '
          WA_NAST            = NAST
        IMPORTING
          JOB_OUTPUT_INFO    = WA_RETURN
        EXCEPTIONS
          FORMATTING_ERROR   = 1
          INTERNAL_ERROR     = 2
          SEND_ERROR         = 3
          USER_CANCELED      = 4
          OTHERS             = 5.
*update the nast entry accordingly
      IF SY-SUBRC EQ 0.
        RETCODE = 0.
        IF US_SCREEN EQ 'X'.
          PERFORM NAST_PROTOCOL_UPDATE.
        ELSEIF SY-SUBRC NE 0.
          RETCODE = 1.
          PERFORM NAST_PROTOCOL_UPDATE.
          EXIT.
        ENDIF.
      ENDIF.
*convert the smartform data into OTF file
      DATAB[] = WA_RETURN-OTFDATA[].
      CALL FUNCTION 'CONVERT_OTF'
        EXPORTING
          FORMAT                = 'PDF'
          MAX_LINEWIDTH         = 134
         ARCHIVE_INDEX         = ' '
          ASCII_BIDI_VIS2LOG    = 'X'
          PDF_DELETE_OTFTAB     = ' '
        IMPORTING
          BIN_FILESIZE          = BINFILESIZE
        TABLES
          OTF                   = DATAB[]
          LINES                 = PDFTAB[]
        EXCEPTIONS
          ERR_MAX_LINEWIDTH     = 1
          ERR_FORMAT            = 2
          ERR_CONV_NOT_POSSIBLE = 3
          ERR_BAD_OTF           = 4
          OTHERS                = 5.
*if file conversion fails we need to update the nast entry
      IF SY-SUBRC <> 0.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      CALL FUNCTION 'SX_TABLE_LINE_WIDTH_CHANGE'
        EXPORTING
          LINE_WIDTH_SRC              = 134
          LINE_WIDTH_DST              = 255
          TRANSFER_BIN                = 'X'
        TABLES
          CONTENT_IN                  = PDFTAB[]
          CONTENT_OUT                 = PDF[]
        EXCEPTIONS
          ERR_LINE_WIDTH_SRC_TOO_LONG = 1
          ERR_LINE_WIDTH_DST_TOO_LONG = 2
          ERR_CONV_FAILED             = 3
          OTHERS                      = 4.
*if conversion fails update the nast entry accordingly
      IF SY-SUBRC <> 0.
        RETCODE = 1.
        PERFORM NAST_PROTOCOL_UPDATE.
        EXIT.
      ENDIF.
Hope it helps...