issue with print single record on page

[Former Member]

hi all ,

when i m making samrtforms it is displaying all records in page bt i want only one record on one page

where i ve to code this

pzl tell me

thanks in advance

[Former Member · Accepted solution]

Hi

use controle braek statements in print program,and open and close the form for every single record manually

[Former Member · Accepted solution]

I AM MAKING SMARTFORMS

[Former Member]

THANKS

[Former Member]

Hi

Check this sample code in this parameters

p_single display the spool request for all the records.

p_ind display the individual records.

TABLES:
  spfli.

DATA:
  t_spfli type
    STANDARD TABLE OF spfli.

DATA:
  fs_spfli TYPE spfli.

DATA:
  w_form TYPE  tdsfname,
  w_flag TYPE i,
  f_nam TYPE rs38l_fnam,
  w_input   TYPE ssfcompin,
  w_control TYPE ssfctrlop.

SELECTION-SCREEN BEGIN OF BLOCK blk  WITH FRAME.
SELECT-OPTIONS s_carrid FOR spfli-carrid.
SELECTION-SCREEN END OF BLOCK blk .

SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME.
PARAMETERS:
p_single RADIOBUTTON GROUP rad1,
p_ind    RADIOBUTTON GROUP rad1.
SELECTION-SCREEN END OF BLOCK block1.


START-OF-SELECTION.
  PERFORM display_data.
  PERFORM ssf_function_module_name.
  PERFORM spool_request.
*&---------------------------------------------------------------------*
*&      Form  display_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM display_data .
  SELECT *
  FROM spfli
  INTO TABLE t_spfli
  WHERE carrid IN s_carrid.
ENDFORM.                    " display_data
*&---------------------------------------------------------------------*
*&      Form  ssf_function_module_name
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM ssf_function_module_name .
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname           = 'Y_FORM'
    IMPORTING
      fm_name            = f_nam
    EXCEPTIONS
      no_form            = 1
      no_function_module = 2.
*  IF sy-subrc NE 0.
*    MESSAGE 'Form cannot be displayed' TYPE 'E' .
*  ENDIF.                               " IF sy-subrc eq 0
ENDFORM.                               " ssf_function_module_name
*&---------------------------------------------------------------------*
*&      Form  spool_request
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM spool_request .

w_input-dialog = 'X'.

  CALL FUNCTION 'SSFCOMP_OPEN'
    EXPORTING
      input = w_input
    EXCEPTIONS
      error = 1.
*" LOOP AT t_spfli .....................................................

  LOOP AT t_spfli INTO fs_spfli.
    w_control-no_open   = ' '.
    w_control-no_close  = ' '.
*"Single spool request..................................................
    IF p_single EQ 'X'.
      w_control-no_open   = 'X'.
      w_control-no_close  = 'X'.
    ELSE.
*"Individual spool request.............................................
      IF w_flag NE '1'.
        w_control-no_open  = 'X'.
        w_control-no_close = ' '.
        w_flag = 1.
        CALL FUNCTION '/1BCDWB/SF00000484'
          EXPORTING
           control_parameters          = w_control
            fs_spfli                   = fs_spfli
         EXCEPTIONS
           formatting_error           = 1
           internal_error             = 2
           send_error                 = 3
           user_canceled              = 4.
       endif.                          " IF w_flag ne '1'
      ENDIF.                           " IF p_single eq 'X'.
      CALL FUNCTION '/1BCDWB/SF00000484'
        EXPORTING
          control_parameters = w_control
          fs_spfli           = fs_spfli
        EXCEPTIONS
          formatting_error   = 1
          internal_error     = 2
          send_error         = 3
          user_canceled      = 4.
    ENDLOOP.                             " LOOP at t_spfli into ...

*&--------------------------------------------------------------------*
*&This function module close the spool request                        *
*&--------------------------------------------------------------------*
    CALL FUNCTION 'SSFCOMP_CLOSE'
      EXCEPTIONS
        error = 1.
  ENDFORM.                               " spool_request

Regards,

Sravanthi

[Former Member]

under loop create command line

give condition on change of (record) go to next page.

here record mean field which u r displaying.

give proper next page.