FORM GET_XINFO USING $INFO LIKE PC407.                      "VKIK061490
  $INFO-MOLGA = MOLGA.
  $INFO-FORML = FORMULAR.
*{   REPLACE        AZDK925662                                        1
*\  $INFO-PCOLS = I514D-C_USE.
*\  $INFO-PSIZE = I514D-R_USE.
* хранится размер листа             " т.е. размер формы - размер листа
  $INFO-PCOLS = I514D-C_MAX.
  $INFO-PSIZE = I514D-R_MAX.
* хранится размер формы
  $INFO-ZZC_USE = I514D-C_USE.
  $INFO-ZZR_USE = I514D-R_USE.
*}   REPLACE
ENDFORM.

FORM print_xform USING $form TYPE tt_form.
  DATA:
    $form_wa  LIKE pc408.
  SET BLANK LINES ON.
*{   INSERT         AZDK925662                                        5
  RESERVE I514D-R_USE LINES.
*}   INSERT
  LOOP AT $form INTO $form_wa.
    CASE $form_wa-ltype.
      WHEN f__ltype-cmd.
        IF $form_wa-linda EQ f__cmd-newpage.
*{   REPLACE        AZDK925525                                        2
*\          NEW-PAGE.
          RESERVE I514D-R_USE LINES.
*}   REPLACE
        ENDIF.
      WHEN f__ltype-txt.
        WRITE: / $form_wa-linda.
    ENDCASE.
  ENDLOOP.
  SET BLANK LINES OFF.
*{   DELETE         AZDK925662                                        6
*\  NEW-PAGE.
*}   DELETE
ENDFORM.                               "PRINT_XFORM.